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FOREWORD 


Among  the  responsibilities  assigned  to  the  Office  of  the  Manager, 
National  Communications  System,  is  the  management  of  the  Federal  Tele¬ 
communication  Standards  Program  which  is  an  element  of  the  overall  CSA 
Federal  Standardization  Program.  Under  this  program,  the  NCS,  with 
the  assistance  of  the  Federal  Telecommunication  Standards  Committee, 
identifies,  develops,  and  coordinates  proposed  Federal  Standards  which 
either  contribute  to  the  interoperability  of  functionally  similar  Federal 
telecommunication  systems  or  to  the  achievement  of  a  compatible  and 
efficient  interface  between  computer  and  telecommunication  systems. 

In  developing  and  coordinating  these  standards  a  considerable  amount 
of  effort  is  expended  in  initiating  and  pursuing  joint  standards  develop¬ 
ment  efforts  with  appropriate  technical  committees  of  the  Electronic 
Industries  Association,  the  American  National  Standards  Institute,  the 
International  Organization  for  Standardization,  and  the  International 
Telegraph  and  Telephone  Consultative  Committee  of  the  Infernational 
Telecommunication  Union.  This  Technical  Information  Bulletin  presents 
an  overview  of  an  effort  which  is  contributing  to  the  development  of 
compatible  Federal,  national,  and  international  standards  in  the  area 
of  digital  facsimile  standards.  It  has  been  prepared  to  inform  interested 
Federal  activities  of  the  progress  of  these  efforts.  Any  comments,  inputs 
or  statements  of  requirements  which  could  assist  in  the  advancement  of  this 
work  are  welcome  and  should  be  addressed  to: 

'•  U.u  i'n 

Office  of  the  Manager 
National  Communications  System 
ATTN:  NCS-TS 
Washington.  D.C.  20305 
(202)  692-2124 
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1.0  INTRODUCTION 

Several  organizations  have  submitted  contributions  to  the  CCITT 
(see  Appendices  A,  B,  C,  D,  and  E)  describing  two-dimensional  coding 
techniques  for  selection  of  a  standard  compression  algorithm  for 
advanced  digital  facsimile  systems.  At  tne  December  1978  meeting  in 
Geneva,  a  working  party  of  CCITT  Study  Group  XIV  adopted  specific 
procedures  to  measure  compression  and  error  sensitivity  so  that  candi¬ 
date  coding  techniques  may  be  compared  on  a  meaningful  basis.  These 
definitions  and  procedures  are  outlined  in  references  1  and  2.  The 
National  Communications  System  of  the  U.  S.  Government  has  issued 
three  contracts  to  Delta  Information  Systems,  Inc.  to  evaluate  seven 
candidate  two-dimensional  coding  techniques  using  the  criteria 
recommended  by  the  CCITT. 

In  tne  first  contract  (Purchase  Order  DCA-79-M-0105),  a  basic 
computer  program  was  developed  to  measure  the  compression  and  error 
amsitivity  of  digital  facsimile  coding  techniques.  To  validate  this 
program,  the  Modified-Huffman  code,  recommended  as  the  one-dimensional 
standard  for  Group  3  machines,  was  tested  and  simulated  on  the  model. 
The  computer  program  and  work  accomplished  on  this  initial  contract 
is  described  In  a  Final  Report  Issued  August  10,  1979  (see  Reference  3). 

The  document  contained  herein  is  the  final  report  describing  the 
work  performed  under  the  second  contract  (Contract  DCA  100-79-C-0031) . 
On  tnis  program,  the  validated  computer  model  was  used  to  measure  the 
compression  and  error  sensitivity  or  five  two-dimensional  coding  tech¬ 
niques.  The  five  coding  algorithms  selected  for  simulation  are 
described  in  the  CCITT  Contributions  which  have  been  reproduced  in  the 
appendices  listed  below. 
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Appendix 

A 


Source  of  CCITT  Contribution 


Japan 

B  3M  Company 

C  IBM  Europe 

D  Xerox 

E  AT&T 

The  coding  techniques  listed  above  were  selected  simply  because 
no  other  contributions  had  been  submitted  to  the  CCITT  when  this  NCS 
measurement  contract  was  initiated.  Contributions  were  subsequently 
submitted  to  the  CCITT  by  the  Federal  Republic  of  Germany  and  the 
United  Kingdom  (References  h  and  5,  respectively).  The  NCS  organiza¬ 
tion  has  issued  a  third  contract  (Purchase  Order  DCA  100-79-M-0209)  to 
Delta  Information  Systems  to  measure  the  compression  and  error  sensi¬ 
tivity  of  these  latter  two  coding  techniques  and  the  results  will  be 
issued  in  a  report  in  October,  1979  (Reference  6). 

The  measurement  parameters  which  were  involved  in  this  program  are 
summarized  in  Section  2,0  of  this  report.  Section  3.0  describes 
the  hierarchy  and  interrelationship  of  computer  programs  which  are  used 
in  the  measurement  process.  In  many  instances,  the  proposed  operation 
of  the  coding  algorithm  was  not  totally  defined  when  a  transmission 
error  was  encountered.  Section  U.O  describes  the  generalized  error 
detection  and  correction  procedure  which  was  employed  on  all  algorithm 
simulations.  As  the  computer  programs  wei  e  prepared  for  each  algorithm 
certain  assumptions  were  made  for  each  coding  technique,  particularly 
in  the  area  of  error  detection  and  correction.  These  assumptions  made 
for  each  individual  coding  technique  are  documented  in  Section  5.0. 
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Twenty  separate  computer  runs  were  implemented  for  each  algorithm 
at  different  combinations  of  test  document,  error  phase,  transmission 
error  file,  minimum  scan  line  time,  vertical  resolution  and  K- factor. 
Section  6.0  svmmariaes  the  results  of  these  measurements  in  terms  of 
compression  data,  error  sensitivity  data,  and  coded  line  length  statis¬ 
tics.  Section  7.0  contains  a  list  of  reference  documents  related  to 
the  contract. 

The  CCITT  contributions  describing  each  coding  algorithm  have 
been  included  in  Appendices  A  through  E  for  reference  purposes. 

Appendix  F  contains  the  program  code  listings  for  those  subroutines 
which  are  common  to  all  algorithms,  e.  g.  data  packing,  data  unpacking, 
error  measurement,  etc.  The  remaining  ten  appendices,  G  through  P, 
contain  the  flow  charts  and  the  listing  of  the  code  for  the  computer 
program  for  each  of  the  five  algorithms. 

Delta  Information  Systems  wishes  to  acknowledge  the  Contracting 
Officer’s  Technical  Representative,  Dennis  Bodson,  for  the  extraordin¬ 
ary  level  of  support  he  has  provided  during  the  course  of  this  contract. 
The  assistance  of  Marla  Thomas,  from  the  DCEC  computer  facility,  is  also< 
greatly  appreciated. 
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2.0  MEASUREMENT  PARAMETERS 


In  this  section,  the  various  parameters  invoked  in  the  measurement 
of  compression  and  error  sensitivity  will  be  summarized.  In  general, 
Stucfy  Group  XTV  of  the  CCITT  agreed  upon  these  measurement  parameters 
at  the  general  meeting  held  in  Geneva  in  December  1 978  (see  Reference  2). 

2.1  Test  Documents 

The  test  documents  were  chosen  from  the  eight  CCITT  test  documents 
(see  Figure  2-1)  since  they  have  been  widely  used  by  data  compression 
experimenters  in  the  past.  Documents  numbered  1,  h,  5,  and  7  (see 
Figures  2-2,  2-3,  2-ii,  and  2-5  respectively)  were  selected  as  the 
standard  test  images  since  these  were  considered  most  representa¬ 
tive  of  documents  to  be  transmitted. 

The  French  PTT  Administration  has  scanned  the  eight  CCITT  documents 
at  the  high  resolution  specified  for  Group  3  machines-- 7. 7  lines/mm. 

They  have  also  quantized  each  pel  to  be  either  black  or  white  and 
stored  the  resultant  image  on  magnetic  tape.  This  tape  was  used  as 
the  source  of  input  documents  in  this  simulation  program.  Appendix  B 
of  Reference  3  describes  the  format  of  the  test  document  magnetic  tape 
supplied  by  the  French  PTT. 

2.2  Resolution 

It  was  agreed  that  measurements  would  be  performed  at  both 
standard  resolution  (3.85  lines/mm.)  and  high  resolution  (7.7  lines/mm.). 
In  the  high  resolution  case,  all  lines  on  the  input  test  documents 
shall  be  used.  In  standard  resolution  tests,  every  odd  scan  line 
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Our  Ref.  350/PJC/EAC 


18th  January,  1972. 


Dr.  P.N.  Cundall, 
Mining  Survey*  Ltd., 
Holroyd  Road, 
Reading, 

Berks. 


Dear  Pete, 

Permit  me  to  introduce  you  to  the  facility  of  facsimile 
transmission. 

In  facsimile  a  photocell  is  caused  to  perform  a  raster  scan  over 
the  subject  copy.  The  variations  of  print  density  on  the  document 
cause  the  photocell  to  generate  an  analogous  electrical  video  signal. 
This  signal  is  used  to  modulate  a  carrier,  which  is  transmitted  to  a 
remote  destination  over  a  radio  or  cable  communications  link. 

At  the  remote  terminal,  demodulation  reconstructs  the  video 
signal,  which  is  used  to  modulate  the  density  of  print  produced  by  a 
printing  device.  This  device  is  scanning  in  a  raster  scan  synchronised 
with  that  at  the  transmitting  terminal.  As  a  result,  a  facsimile 
copy  of  the  subject  document  is  produced. 

Probably  yov  have  uses  for  this  facility  in  your  organisation. 

Yours  sincerely, 

fU. 

P.J.  CROSS 

Group  Leader  -  Facsimile  Research 


Figure  2-2  CCITT  Test  Document  Ho.  1 

lUfUtortd  la  En»l»nd:  No.  3038 
Rofi.t.r.d  Office  BO  Vie»r»  Lane,  Ilford.  Iwn. 
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L'ordrede  lineament  et  de  rtaliaatlon  dee  applications  fait  l'objet  da  decisions  au  plua  I  aut 
nlvaau  da  la  Diraction  General*  daa  Telecommunication*.  U  n'aat  cartaa  paa  quaatlon  da 
conatmtraca  ayateme  integre  "an  bloc"  mala  blan  au  contraira  da  procedar  par  etapca,  par 
pallara  auccaaalfa.  Cartainta  applicationa,  dont  la  rentabilite  n*  pourra  etre  assure*.  t» 
seroctt  paa  antrapriaaa.  Actuallamant.  aur  tranta  applicationa  qui  ont  pu  ttr*  globalamant 
deftniea,  alxan  aont  au  atada  da  Sexploitation.  six  autraa  aa  aont  vu  donnar  la  prlorlte  pour 
laur  realisation. 

Chaqua  application  aat  confiee  *  un  "chaf  da  projet",  raaponaabla  euccesaivement  da  aa 
concaption,  da  aon  analyae-programmatlon  at  da  aa  miaa  an  oauvra  dana  una  region- pilota. 
La  generalisation  ultdriaura  da  l'application  reallae*  dana  catta  region-pilot*  depend  daa 
rdaultata  obtanua  at  fait  l'objet  d'una  decision  da  la  Diraction  Generals,  Ndanmolna,  la 
chaf  da  projat  dolt  dta  la  depart  conaiddrar  qua  aon  activltd  a  una  vocation  natlonala  done 
refUatr  tout  partlculariama  rdgtonal.  11  aat  aidd  d'una  dquipa  d'analyetea-programmeur* 
at  antourd  d'un  "groupa  da  concaption"  chargd  da  rddlgar  la  documant  da  "ddfinition  daa 
objactlfa  globaux"  pula  la  "cahiar  daa  chargaa"  da  l'application,  qui  aont  adraaada  pour  avta 
4  toua  laa  aarvlcaa  utiliaataura  potantlala  at  aux  chafa  da  projat  daa  autraa  applicationa, 
La  groupa  da  concaption  comprand  6  4  10  paraonnaa  raprdaantant  laa  aarvlcaa  laa  plua 
dlvara  concarnda  par  la  projat^at  comporta  obligatoiramant  un  bon  analyata  attache  4  l'ap- 
pllcation. 

II  -  L'IMPLANTATION  GEOCRAPHIQUE  D'UN  RESEAU  INFORMATIQUE  PERFORMANT 

L'organiaatlon  da  l'antrapriaa  framjale*  daa  telecommunications  rapoaa  aur  l'axiatanca  da 
30  rdglona.  Daa  calculataura  ont  dtd  implants*  dana  la  paaad  au  moina  dana  toutaa  laa  plua 
lmportantaa.  Ontrouva  alnal  daa  machines  Bull  Gamma  30  4  Lyon  at  Marseille.  daa  GE  435 
4  Lilia,  Bordeaux,  Toulouae  at  Montpellier,  un  GE  43?  4  Maaay.  enfln  quelquea  machinea 
Bull  300  TI  4  programme  a  ctblda  dtalant  rdcammant  ou  aont  encore  en  aervice  dana  lea 
rdglona  da  Nancy.  Nantea,  Limogaa,  Poitlara  at  Rouen  ;  ce  pare  aat  eaaentiellement  utilise 
pour  la  comptabilltd  tdldphonique, 

Al'avanlr,  alia  plupart  daa  fichiara  ndcaaaairea  aux  applicationa  decrltea  plua  haut  peuvent 
dtregdrdaentempa  dLffdrd,  un  certain  nombre  d'entre  eux  davront  ndceaaalrement  etre  ac- 
ceaalblaa,  voire  mia  4  Jour  en  tampa  rdel  :  parmi  caa  darnlera  le  flchier  commercial  dea 
abonnda,  la  fichiar  daa  renaeignementa,  le  fichier  dea  circuita.  le  fichier  technique  dea 
abonnda  contlandront  daa  quantllda  conalddrablea  d'lnformaUon*. 

La  volume  total  da  caractdrVa  4  gdrer  en  phaae  finale  aur  un  ordinateur  avant  en  charge 
qualquaa  500  OCO  abonnda  a  dtd  eatimd  4  un  milliard  de  caraettrea  au  moina  Au  moina  le 
tiara  daa  donndea  aeront  concerndea  par  dea  traltementa  en  tempa  rdel. 

Aucun  daa  calculataura  dnumdrda  plua  haut  ne  permettatt  d'envianger  de  tela  traitementa. 
L'lntdgration  prograaalve  da  toutea  lea  applicationa  suppoae  la  creation  d'un  support  commun 
pour  toutea  laa  informations,  une  veritable  "Banque  de  donndea",  rdpartie  aur  dea  moyens 
detraitement  nationaux  at  rdgionaux,  et  qui  devra  reater  alimented,  miae  A  jour  en  perma¬ 
nence,  4  partir  da  la  base  de  l'entreprise,  c'eat-A-dvre  le*  chantiera,  lea  magasins.  lea 
guicheta  dea  aarvlcea  d'abonnement,  lea  services  de  personnel  etc 

L'dtude  dea  diffdrenta  flchiera  4  conatituer  a  done  permia  de  doiuur  lea  principal?*  carac- 
tdrlatiquea  du  rdseau  d'ordlnateura  uouveaux  A  mettre  en  place  pour  aborder  la  realisation 
du  ayatdme  informatif,  L'obligation  de  fait  e  appel  A  dea  ordinateurs  de  troiaiAme  generation, 
trtspuiaaantset  dotes  de  volumineuses  memo.rea  de  masse,  a  conduit  A  en  rOduire  substan- 
tiellement  le  nombre. 

L'implantation  de  aept  centres  de  calcul  (nterregionaux  constituera  un  compromis  entre  : 
d'unepartle  dealr  de  reduire  le  coOt  economique  de  l'enaetnble,  de  faciliter  la  coordination 
de*  equlpea  d'lnformatlciena;  et  d'autre  part  le  refu*  de  crOer  dea  centres  trop  important* 
difficile*  4  g4rer  et  4  dlrlger.et  poaant  dea  probiemes  delicats  de  security.  Le  regroupe- 
ment  dea  traitementa  relatlf*  4  pluaieur*  region*  aur  eharun  de  ces  sept  centres  |>ermettra 
de  leur  donner  une  tallle  relativement  homogene.  Chaque  centre  "gcrera"  environ  un  mil¬ 
lion  d'abonnea  4  la  fin  du  VI* me  plan 

La  miae  en  place  de  cea  centres  a  debute  au  debut  de  I'atuiCe  1!)7  1  un  ordinateur  IRIS  '»0  Je 
la  Compagnie  Internationale  pour  l'lnformatlque  a  ete  installs  A  Toulouae  en  fCvrter  ;  la 
mtme  machine  vient  d'etre  miae  en  aervice  au  centre  de  calcul  interregional  de  Bordeaux. 
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Cela  est  d'autant  plus  valable  qua  TAf  tit  piut 
grand.  A  oat  *gard  la  figure  2  repr*  sente  la  vraia  courba 
donnant  ldO)l  an  fonction  da / pour  let  valeurs  num*- 
riqua*  indiqu*es  page  pr*c*dentt. 


Dans  ce  cas,  le  filtre  adapts  pourra  *tre  constitu*, 
conformiment  4  la  figure  3,  par  la  cascade  : 

—  d'un  filtre  passe-bande  de  transfer!  unit*  pour 
/o  <  /  <  /o  +  A  f  et  de  transfer!  quasi  nul  pour 
/  <  /o  «t  /  >  /o  +  A  f.  Ultra  ne  modifiant  pas  la  phase 
das  composants  le  traversant  ; 


Fio.  J 


—  filtre  suivi  d'une  ligne  k  retard  (LAR)  disper¬ 
sive  ayant  un  temps  de  propagation  de  groupe  TK 
d*croissant  liniairement  avec  la  frequence  f  suivant 
('expression  : 


7*  *  T9+(f0-f)  —  (avac  T  ^  T) 
A/ 


(voir  fig.  4). 


,t* 

Tg-T- _ 

f  r 
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telle  ligne  k  retard  ast  donn*e  par  : 
<fi  ”  -2*  T,  d / 


1  A/J  A f 


Et  catta  phase  est  bian  I’oppos*  de  /(K/). 
k  un  d*phasage  constant  pr*s  (sans  importance) 
et  k  un  retard  T9  pris  (inevitable). 

Un  signal  utile  5(f)  traversant  un  tel  filtre  adapt* 
donne  k  la  sortie  (It  un  retard  T0  pr*s  et  it  un  d*pha- 
sage  pris  de  la  porteuse)  un  signal  dont  la  transform^ 
de  Fourier  est  r*elle,  constante  entre  /0  et  /0  + AA 
et  nulle  de  part  et  d'autre  de  /0  et  de  /0  +  6f,  c’est- 
4 -dire  un  signal  de  frequence  porteuse  /0+ A/72  ct 
dont  I'enveloppe  a  la  forme  indiqu*e  4  la  figure  $, 
oil  Con  a  represent*  simu!tan*nwnt  le  signal  5(f) 
et  le  signal  5,(0  correspondent  obtenu  4  la  sortie 
du  filtre  adapt*.  On  comprtnd  le  nom  de  r*cepleur 
4  compression  d'impulsion  donn*  4  ce  genre  de 
filtre  adapt*  :  la  «  largeur  >*(4  3  dB)  du  signal  corn- 
prim*  *tant  *gale  4  l/Af,  le  rapport  de  compression 

est  de  -I—  m  TAf 
\IAf 


On  saisit  physiquement  le  ph*nom*ne  de  com¬ 
pression  en  r*alisant  que  lorsque  le  signal  5(0  entre 
dans  la  ligne  4  retard  (LAR)  la  fr*quence  qui  entre 
la  premi*rc  4  Cinstant  0  est  la  friquence  basse  /„, 
qui  met  un  temps  T0  pour  traverser.  La  fr*quence  / 


entre  4  Cinstant  i  -  (/-/„)  —  et  elle  met  un  temps 

A f 


T9-(J  -/o)  pour  traverser,  ce  qui  la  fait  rersortir 

A / 

4  Cinstant  7V,  *ealement  Ain«i  done,  le  sienal  5(/> 


'1 


'& 
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should  be  used.  Figure  2-6  is  a  copy  of  the  French  PTT  Test  Document 
No.  It  scanned  with  7.7  lines/mm.  resolution.  Figure  2-7  is  a  copy 
of  the  same  document  where  the  even  scan  lines  have  been  replaced  with 
the  line  above.  Therefore,  this  represents  a  document  in  which  the 
vertical  resolution  is  3.85  lines/mm. 

2.3  Minimum  Scan  Line  Time  (MSLT) 

The  standard  MSLT  to  be  used  in  the  measurement  program  will  be 
5,  10,  and  20  ms.  with  BOL-code  and  0  ms.  without  EOL-code.  It  was 
later  clarified  in  a  memo  from  the  chairman  of  the  Working  Committee 
(see  Reference  7)  that  if,  for  reasons  of  test  economy,  only  one  value 
of  MSLT  can  be  used  in  the  test  program,  that  value  shall  be  20  ms. 

2.U  Transmission  Bit  Rate 

The  standard  transmission  bit  rate  is  U800  bits/sec.  j 

i 

i 

2.5  Measurement  of  Compression 

Two  standard  measures  of  compression  have  been  established— 

(l)  number  of  coded  bits  (2)  Compression  Factor.  The  number  of 
coded  bits  is  the  number  of  bits  required  to  transmit  a  document, 
including  all  overhead  bits  such  as  End  of  Line  (EOL)  and  Fill  bits. 

The  Compression  Factor  is  computed  by  dividing  the  total  number  of 
picture  elements  (pels)  per  test  document  by  the  number  of  coded 
bits.  It  was  further  agreed  that  the  Compression  Factor  and  coded 
bits  should  be  computed  for  two  different  conditions --with  overhead 
and  without  overhead.  The  measurement  with  overhead  applies  to  the 
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L’ordre  de  lancement  tt  d#  realisation  des  applications  fait  Vobjet  da  decisions  au  plus  haut 
nlvtau  da  1*  Dlraction  General*  daa  Telecommunications.  H  n’est  cartaa  pas  question  da 
conatrulra  ca  systems  integr*  “an  bloc"  mala  bian  au  contralra  da  procddar  par  etapts,  par 
pallara  auccasaifa.  Certalnaa  applications.  *,unt  1a  rantabilite  na  pourra  ttra  assure*,* 
aaront  pas  entrcprlsas.  Actuellement,  sur  applications  qui  ont  pu  Sirs  globalemant 

definite,  six  an  aunt  au  ttade  da  '^xploitatU,:.  e*  •--*  sont  vu  donnar  la  priority  pour 

laur  realisation. 

Chaqua  application  ast  confide  A  un  "chaf  da  projtt'  ,  <-v -usable  raccessiveraent  da  sa 
concaption,  da  son  anal  yse- pro  gram  roation  at  da  aa  miss  an  ^Juvrt  dans  una  region-pilot*. 
La  generalisation  ultdrieure  da  ^application  realise*  dans  catta  region-pilots  depend  das 
resultats  obtanus  at  fait  l'objet  d'una  decision  da  la  Direction  Generals.  Neanmotns,  la 
chaf  da  pro  Jet  dolt  dis  la  depart  conslderar  qua  son  activlte  a  una  vocation  nationals  done 
refuser  tout  particularisms  regional,  n  eat  aide  d'una  equips  d'analystas-programmaurs 
at  entourd  d'un  "groups  da  conception"  charge  da  redigar  la  document  da  "definition  daa 
objeettfs  globaux"  puts  la  "cahiar  das  charges"  da  l'application.  qui  sont  adresses  pour  avis 
A  tous  las  services  utlllsateurs  potentials  at  sux  chefs  da  projat  das  autraa  applications. 
La  groups  da  concaption  comprend  6  A  10  personnes  rs  present  ant  las  services  las  plus 
divers  con  carats  par  la  pro  jet, et  comports  obligatoirement  un  bon  analysts  attache  A  Im¬ 
plication. 
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n  -  L'IMPLANTATION  GEOGRA PHJQUE  D'UN  RESEAU  INFORMATIQUE  PEPFORMANT 

L 'organisation  da  l'antre pries  franqaise  daa  telecommunications  repose  sur  l'existence  da 
20  regions.  Das  calculateurs  ont  ete  implantes  dans  la  passe  au  moins  dans  toutas  las  plus 
lmportantes.  Ontrouva  ainsl  das  machines  Bull  Gamma  30  A  Lyon  at  Marseille,  daa  GE  425 
A  Lilia.  Bordeaux.  Toulouse  at  Montpellier,  un  GE  43?  A  Massy,  enfin  quelquea  machines 
Bull  300  T1  A  programmes  cAblds  e talent  rdeeroment  ou  sont  encore  an  service  dans  lea 
regions  da  Nancy,  Nantes,  Limoges,  Poitiers  at  Rouen  ;  ce  pare  ast  esaentlellement  utilise 
pour  la  comptabilite  teiephoniqua, 

Al'avsnir,  alia  plupart  das  fichiers  necessairea  aux  applications  decritos  plus  haut  pauvent 
•tragAres  an  tamps  dlfferA,  un  certain  nombre  d'entra  aux  davront  necassairamant  etra  ac- 
cesaiblea,  voire  mis  A  Jour  an  tamps  real  :  par  ml  ces  deralers  la  fichier  commercial  das 
abonnSs,  la  flchlar  das  remcignements,  la  fichier  des  circuits,  la  fichier  technique  des 
abounds  contlendront  das  quantites  considerables  d'informatlons. 

La  volume  total  da  caractAitos  A  gdrer  en  phase  finale  sur  un  ordinateur  ayant  an  charge 
quelques  500  000  abonnes  a  ete  estimd  A  un  milliard  de  caractferea  au  moins.  Au  moins  le 
tiers  das  donndes  seront  concern eas  par  des  traitements  en  temps  real. 

Aucun  das  calculateurs  enumdrds  plus  haut  ne  permattait  d'snvisagsr  de  tels  traitements. 
L'lntdgration progressive  da  touicsles  applications  suppose  la  creation  d'un  support  common 
pour  toutas  lea  informations,  una  veritable  "Banque  da  donndes",  rdpartle  sur  des  moyens 
datraitamant  nationaux  at  region  aux,  et  qui  devra  raster  alimentde,  mise  A  jour  en  perma¬ 
nence,  A  partir  da  la  base  da  l'antreprlse,  c'est-A-dire  les  chantiers,  les  magasins,  lea 
guichets  des  services  d'abonnamant,  les  services  de  personnel  etc. 

L'dtuda  das  diffdrents  fichiers  A  constituer  a  done  permls  de  ddfinir  les  principles  carac- 
tdristiquas  du  rdseau  d'ordinateurs  nouveaux  A  mettre  en  place  pour  aborder  la  realisation 
du  systdme  informatif.  L'obligation  de  fairs  appel  A  des  ordinateurs  dc  troisldme  generation, 
trdspuissantsetdoteadevolumineuses  mdmoires  de  masse,  s  conduit  A  en  rdduire  substan- 
tiellement  le  nombre, 

L 'implantation  de  sept  centres  de  calcul  interrdglonaux  constituera  un  compromis  entre  : 
d*une partis  deair  de  reduire  le  cofit  economique  de  l'ensemble,  de  faciliter  la  coordination 
dee  dqulpes  d'lnformaticlens;  et  d'autre  part  le  refus  de  erder  des  centres  trop  importants 
difficiles  A  gerer  et  A  diriger.et  posant  dee  problAmes  deiicats  de  securlte,  Le  regroupe- 
raent  des  traitements  relatifs  A  plusleurs  regions  sur  chacun  de  ces  sept  centres  permettra 
de  leur  donner  une  taille  relativernent  homogkne.  Chaque  centre  "gftrera"  environ  un  mil¬ 
lion  d'abonnes  A  la  fin  du  VIA  me  Plan. 

La  miss  en  pises  de  ces  esntrea  a  debute  au  debut  de  1'annee  107 1  :  un  ordinateur  IRIS  50  de 
la  Compagnle  Internationale  pour  l'Informatique  a  ete  instalid  A  Toulouse  en  fevrier  ;  la 
mSms  machine  vient  d'etre  mise  en  service  au  centre  de  calcul  interregional  de  Bordeaux, 
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L'ordrad#  lancament  ait  da  realisation  da*  application*  fait  I'objet  da  decisions  au  plut  haut 
nivaau  de  la  Direction  General*  dea  Telecommunications.  II  n'eat  certaa  paa  quaation  da 
construlre  c*  system*  iatdgrd  "an  bloc"  mala  blan  au  contraira  da  procAdar  par  at  ape*,  par 
pallera  aucoaaalfa.  Cartainta  applications,  dont  la  rantabilitd  na  pourra  etra  assure#,  nr 
aaront  pan  antraprleee.  Actuellement,  aur  trante  application*  qui  ont  pu  etre  globalement 
definles.  aix  an  a  ont  au  atada  de  Sexploitation,  aix  autrea  *a  aont  vu  donnar  la  priority  pour 
leur  realisation, 

Cheque  application  eat  confie*  4  un  "chaf  da  projet",  raaponaabla  auccaaalvcmcnt  de  aa 
conception,  da  eon  analyse-programraatlon  at  da  aa  mite  an  oeuvre  dans  tine  rdgion-pilote. 
La  generalisation  ulteriaur#  da  l'application  realise*  dan*  catta  region- pilot*  depend  de* 
rdaultata  obteou*  at  fait  I'objet  d'una  decision  de  la  Direction  Generals.  Ndanmolna,  la 
chaf  da  projet  doit  d4*  la  depart  conaiddrar  qua  aon  activltd  a  un*  vocation  nationale  done 
rafuaar  tout  particulariame  regional,  D  eat  aidd  d'une  dquipa  d'analyatea-programmeura 
at  antourd  d'un  "group*  da  conception"  charge  da  rddlgor  1*  document  de  "definition  da* 
objactlfa  globaux"  pula  1*  "cahiar  daa  charge*"  da  l'application,  qui  aont  adraaada  pour  avia 
4  toua  lea  aarvicea  utiliaataura  potential*  at  aux  chef*  da  projet  daa  autrea  application*. 
La  group*  da  conception  coraprend  6  4  10  peraonnea  reprdaentant  lea  atrvlcta  lea  plua 
diver*  concarnda  par  la  projat,at  comporte  obligatoiramant  un  bon  analyata  attache  4  Sap- 
plication. 


12  -  L'IMPLANTATION  GEOGRAPHIQUE  D'UN  RESEAU  INFORMATIQUE  PERFORMANT 

L 'organisation  da  I'antraprla*  fran^ais#  daa  telecommunication*  repoae  aur  l'exiatance  da 
30  region*.  Daa  calculateura  ont  dtd  implant#*  dan*  la  paaad  au  moina  dan  a  toutea  lea  plus 
important* a.  Ontrouva  alnai  daa  machinaa  Bull  Gamma  30  4  Lyon  at  Marseille,  das  GE  42S 
4  Lilia,  Bordeaux,  Toulouse  at  Montpellier,  un  GE  43?  4  Massy,  anfln  qualquaa  machinaa 
Bull  300  TI  4  pro  grammas  ciblda  dtalant  rdcsmment  ou  aont  ancora  an  service  dan*  lea 
rdglan*  da  Nancy,  Nantaa,  Limoges,  Poltlera  at  Rouen  ;  ca  pare  eat  eaaentiellement  utilise 
pour  la  comptabilitd  tdldphooique. 

Al'avanlr,  alia  plupart  daa  flchlera  ndcaaaalraa  aux  applications  ddcrite*  plus  haut  peuvent 
•tregdrda  an  temps  diffdrd,  un  certain  nombre  d'entra  aux  davront  ndcasaairamant  dtra  ac- 
caaaiblaa,  voire  mis  4  jour  an  tempa  real  :  parml  ca*  darnlsra  le  fichier  commercial  dea 
abonnda,  la  fichier  daa  ranaalgnamanta,  la  fichier  daa  circuits,  la  fichier  technique  das 
abonnde  contlendront  dea  quantitds  considerable*  d'lnformatlons. 

La  volume  total  da  caractdrta  4  gdrar  an  phase  finale  aur  un  ordinateur  ayant  en  charge 
qualquaa  500  000  abonnda  a  dtd  eatimd  4  un  milliard  de  caractdre*  au  moina.  Au  moina  le 
tiers  dec  donndaa  aaront  concemdes  par  das  traitamants  an  tsmpa  rdal. 

A'icun  da*  oaloulateurs  dnumdrda  plus  haut  nt  parmattait  d'anviaager  de  tala  traitamants. 

L' integration prograsaiv*  da  toutea  lea  applications  suppose  la  creation  d'un  support  commun 
pour  toutea  las  informations,  urn  veritable  "Banque  de  donndaa",  rdpartie  aur  dea  moyena 
datraitement  nationaux  at  rdgionaux,  at  qut  davra  raster  allmantde,  miss  4  jour  an  perma¬ 
nence,  4  partir  da  la  baa*  da  l'antraprlsa,  c'aat-4-dlre  lea  chanticra,  lea  magasins,  lea 
guichata  daa  aarvicea  d'abonnament,  lea  services  de  personnel  etc. 

L'dtude  daa  diffdrant*  fichitra  4  constituer  a  done  permis  de  ddfinir  lea  principals  carac- 
tdi  iatiquas  du  rdaeau  d'ordinateurs  nouveaux  4  mettre  en  piace  pour  abordar  la  realisation 
duayatemeinformatif.  L'obligation  da  fairs  appel  4  des  ordinateura  de  troiaidme  generation, 
tre*  puissant*  at  dotes  da  volumineuses  mdmoire*  de  masse,  a  conduit  4  en  rdduire  substan- 
titUamant  le  nombre. 

L 'implantation  da  aapt  centra*  da  calcul  intarrdgionaux  constituera  un  compromis  entre  : 
d'un*  part  la  ddsir  da  rdduir*  la  coflt  dconomique  de  l'ensemble,  de  faciliter  la  coordination 
daa  dqulpaa  d'tnformatlclens;  at  d'autre  part  le  refus  de  erder  dea  centres  trop  importants 
difficilaa  4  gdrar  at  4  diriger,et  poaant  daa  probldmas  delicate  de  adcurite,  Lc  ragroupe- 
ment  de*  traitamants  ralatifs  4  pluaiaura  regions  aur  chacun  de  ces  sept  centres  permettra 
da  laur  donnar  un#  tailla  relativement  homogene,  Cheque  centre  "gdrera"  environ  un  mil¬ 
lion  d' abotu.es  4  la  fin  du  Vldme  Flan. 

Lamias  an  place  da  caa  cantraa  a  ddbutd  au  debut  de  l'annde  1971  :  un  ordinateur  IRIS  50  da 
1*  Compagni*  Internationale  pour  1'Informatiqut  a  dtd  install#  4  Toulouse  en  fdvrier  ;  la 
rntma  machine  viant  d'etre  ml**  an  aarvlce  au  centre  de  caicul  interregional  da  Bordeaux, 
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Group  3  situation  while  the  measurement  without  overhead  applies  to 
the  Group  I4  case. 
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2.6  Measurement  of  Error  Sensitivity 

An  objective  measure  of  error  sensitivity  is  obtained  ly  encoding 
the  test  documents  with  the  proposed  techniques  (all  overhead  bits  must 
be  included),  subjecMng  the  resulting  bit  stream  to  transmission 
errors,  decoding  the  transmission  to  obtain  the  received  image,  and 
comparing  the  original  image  with  the  received  image  to  determine  the 
number  of  pels  in  error.  The  Error  Sensitivity  Factor  (ESF)  is  cal¬ 
culated  as  the  total  number  of  document  pels  in  error  divided  by  the 
total  number  of  transmission  bits  that  are  in  error.  In  this  way, 
the  ESF  represents  the  average  disturbance  to  the  output  image  caused 
by  a  single  transmission  error. 


2.6.1  Transmission  Error  Pattern 


It  was  agreed  that  a  record  of  actual  bit  errors  incurred  over 
telephone  lines  will  be  used  in  the  error  sensitivity  test.  The 
Federal  Republic  of  Germany  (see  Reference  8)  has  obtained  a  record 
of  such  errors  by  transmitting  a  known  psue do-random  sequence  at 
U800  bits/sec.  using  a  V27  ter  modem  over  a  switched  telephone  net¬ 
work.  The  resultant  error  pattern  has  been  recorded  on  magnetic  tape 
and  made  available  to  experimenters.  Appendix  C  of  Reference  3  des¬ 
cribes  the  format  of  the  transmission  error  magnetic  tape.  This  tape 
was  used  in  the  measurement  of  error  sensitivity  described  in  this 
report. 
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2.6.2  Error  Phases 

One  concern  with  the  ESF  measurement  is  the  high  degree  of 
sensitivity  to  those  few  errors  which  may  affect  the  end  of  line  code 
and  can  cause  an  inordinate  number  of  incorrect  pels.  If  the  error  pattern 
happened  to  fall  in  an  unfortunate  phase  relative  to  the  encoded  bits, 
a  large  number  of  pels  could  be  affected.  On  the  other  hand,  the  error 
pattern  could  fall  fortuitously  and  affect  a  relatively  few  number  of 
pels.  To  insure  experimenters  can  achieve  an  adequate  level  of  statis¬ 
tical  validity,  the  concept  of  error  phases  has  been  introduced.  In 
the  basic  zero  phase,  the  first  bit  of  the  error  record  is  aligned 
with  the  first  bit  jf  the  encoded  transmission.  In  the  case  of  Phase  2, 
the  transmitted  bit  information  is  delayed  by  1,021*  bits  relative  to 
the  previous  run.  The  transmission  bit  information  is  delayed  by 
2,01*8  bits  for  Phase  2.  Experimenters  would  have  a  higher  confidence 
level  in  the  average  of  the  three  phases  compared  to  any  one  ESF  taken 
alone. 

2.6.3  Error  Correction 

In  order  to  precisely  measure  the  error  sensitivity,  both  the 
encoding  technique  and  the  decoding  algorithm  must  be  completely 
defined.  If  more  than  one  decoding  algorithm  is  proposed  (for  example, 
to  achieve  differing  levels  of  error  control),  each  must  be  tested 
separately.  Collective  Letter  No.  87  from  the  CCITT  (see  Reference  7) 
outlines  an  error  correction  procedure  to  be  used  for  simulating  two- 
dimensional  algorithms  where  an  error  correction  procedure  has  not  been 
otherwise  specified.  In  this  procedure,  the  erroneous  line  is  replaced 
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by  the  previous  line  and  Mtah,  lines  are  replaced  by  «hite  lines 
until  a  one-dimensional  coding  line  is  correctly  decoded. 


3.0  COMPUTER  PROGRAM  OVERVIEW 

This  section  contains  a  general  overview  of  the  computer  program 
architecture  written  under  this  contract.  The  description  is  divided 
into  two  parts.  Section  3.1  focuses  on  the  overall  simulation  process 
from  a  flow  perspective  with  particular  emphasis  on  the  simulation 
inputs  and  outputs.  Section  3.2  presents  the  hierarchical  structure 
of  the  programs  Illustrating  how  the  programs  are  organized  for  each 
of  the  5  different  algorithms.  For  convenience  of  the  reader,  a 
detailed  flow  chart,  and  the  actual  program  code  listing,  has  been 
included  in  the  Appendices  for  each  algorithm  (Appendices  F  through 
P).  All  computer  programs  have  been  written  in  conventional  Fortran 
IV  language. 

3.1  The  Simulation  Process 

Figure  3-1  illustrates  the  interrelationship  between  the  major 
functions  of  each  simulation  program  developed  on  the  subject  contract. 
There  are  two  input  data  sets  to  each  simulation  which  originate  on 
magnetic  tape.  One  tape,  supplied  by  the  French  PTT  Administration, 
contains  all  eight  of  the  CCITT  test  documents.  The  format  of  this 
input  image  tape  is  described  in  Appendix  B  of  Reference  3.  The  other 
tape,  supplied  by  the  Federal  Republic  of  Germany,  contains  transmission 
error  data  from  actual  switched  telephone  circuits.  The  format  of  this 
input  tape  is  described  in  Appendix  C  of  Reference  3.  A  program  called 
"REDTAP"  was  prepared  to  read  the  data  from  the  input  document  tape 
while  the  error  tape  is  read  in  directly.  Data  from  the  two  input 
tapes  are  placed  on  disc  in  the  computer  system  to  be  accessed  during 
the  simulation  process.  A  separate  file  is  established  for  each  of  the 
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teat  documents.  The  transmission  error  tape  is  divided  into  four 
files,  one  for  each  of  four  different  circuit  error  conditions. 

To  initiate  the  simulation  process,, the  operator  must  type  in 
a  set  of  input  parameters.  The  insertion  of  the  input  parameters  is 
accomplished  on  an  interactive  basis  with  prompting.  A  typical 
interactive  sequence  with  responses  is  listed  below. 

1.  PARAMETERS:  INPUT  (-1),  OR  DEFAULT  (-D)?  I 

2.  DIAGNOSTIC  PRINTOUT?  (TORN).  N 

3.  ENTER  MAXIMUM  NUMBER  OF  PELS  PER  LINE:  1728 
k.  ENTER  VERTICAL  SAMPLING:  1 

5.  ENTER  PARAMETER  K:  h 

6.  ENTER  ERROR  PATTERN  PHASE:  0 

7.  ENTER  MINIMUM  COMPRESSED  LINE  LENGTH:  96 

8.  NUMBER  OF  SCAN  LINES  TO  BE  PROCESSED  “7  10 

9.  ERROR  MDDE  -  ?  (M-MANUA1,  T*TAPE,  N=NO  ERRORS)  N 
After  the  data  has  been  entered  and  the  measurement  parameters 

have  been  selected,  the  first  step  in  the  simulation  process  is  the 

"ENCODE"  function.  This  function  detects  color  changes  in  the  input  data 

and  constructs  the  appropriate  code  word  by  table  look-up  or  algorithm. 

The  actual  code  is  fed  to  the  error  corrupt  unit,  while  the  number  of 

code  bits  is  accumulated  with  fill  and  EDL  codes  to  provide  the  output 

total  number  of  data  bits,  to  compute  the  Compression  Factors,  CF^ 

and  CF,  . 

4 

The  error  corruption  step  combines  the  transmission  error  data 
with  the  encoded  data.  At  each  point  in  the  image  where  an  error  occurs, 
the  corresponding  bit  in  the  encoded  signal  is  reversed  and  fed  to  the 
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decode  function.  The  decoder  basically  performs  the  inverse  function 
of  the  encoder,  generating  a  series  of  lines  of  image  pels.  There  are 
two  parts  of  the  decoding  function  which  are  not  obvious  and  require 
clarification:  (l)  what  the  decoder  does  when  an  error  occurs 
(2)  what  the  decoder  does  when  a  line  is  missing.  The  operation  of 
the  decoder  under  these  two  conditions  is  described  in  Section  U. 

The  output  of  the  Decode  function  feeds  the  "WRITAP"  or  "CONVERT" 
functions  for  writing  the  error  corrupted  image  on  magnetic  tape.  It  is 
also  fed  to  a  subtraction  function  which  compares  the  decoded  image  with 
the  -iginal  image.  Pels  which  are  in  error  are  fed  to  the  "ERRMES" 
subroutine  which  counts  all  the  pels  in  the  image  which  are  in  error. 
This  subroutine  also  counts  the  number  of  transmission  error  bits 
which  corrupted  the  encode  signal.  Finally,  the  "ERRMES"  subroutine 
computes  the  ESF  by  dividing  the  number  of  incorrect  pels  by  the 
number  of  transmitted  bits  in  error. 

Figure  3-1  shows  that  the  simulation  process  provides  a  printout 
of  all  the  computed  performance  data  as  well  as  a  summary  tabulation 
of  the  input  parameters. 

For  more  details  on  the  computer  programs,  refer  to  Section  3.2 
for  a  description  of  the  program  structure  and  to  the  Appendices  for 
flow  charts  and  program  listings. 

The  reader  should  note  that  most  of  ,ie  software  prepared  under 
this  contract  is  suitable  for  simulating  any  compression  algorithm. 

The  only  subroutines  which  must  be  written  specifically  for  a  particu¬ 
lar  coding  technique  are  the  encode  and  decode  subroutines. 
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3.2  Program  Structure 

The*  following  section  describes  the  structure  of  the  computer 
program  written  to  simulate  the  various  algorithms.  In  addition, 


i 


< 

i 


a  brief  description  of  each  of  the  subroutines  is  given. 


Each  of  tho  computer  programs  written  to  simulate  the  five 

1 

compression  algorithms  conforms  to  the  general  structure  shown  in 

Figure  3-2.  The  chart  given  in  this  figure  shows  the  hierarchy  of  the  s 

functions  that  make  up  each  simulation  program.  Some  of  the  functions 

on  the  chart  are  named  generically:  the  table  in  Figure  3-2  shows 

how  these  generic  function  names  are  keyed  to  the  actual  subroutine 


names  used  by  each  compression  algorithm.  The  names  on  the  hierarchical 


chart  that  do  not  appear  in  the  table  are  subroutines  that,  are  used 

by  all  compression  algorithms.  A  brief  description  of  each  of  the  j 

i 

functions /subroutines  follows :  ; 

! 

MAIN 

The  MAIN  program  controls  the  decoding  process  and  the  error 
recovery  procedure  for  getting  back  in  sync  when  an  error  is  detected. 


As  can  be  seen  from  Figure  3-2,  the  simulation  process  is  "decode 
driven"}  that  is,  the  main  program  controls  the  decode  process  which 
decodes  a  buffered  line  of  compressed  data.  When  the  contents  of  the 
buffer  have  been  used  up,  a  new  line  of  data  is  encoded.  The  MAIN  pro¬ 
gram  also  controls  parameter  input,  measurement  of  errors,  and  reports 


computed  results. 


GETL 

The  GETL  subroutine  retrieves  a  number  of  requested  bits  from 
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the  coded  line  and  delivers  the  bits  packed  into  a  word  (right 
justified).  If  stuffing  bits  have  been  used,  i.e.  in  the  READ  code, 
they  are  removed.  End-of-line  codes  (EDL)  or  line  synchronization 
signals  (LSS)  are  detected.  If  the  number  of  coded  blt3  requested 
by  the  calling  program  is  not  available,  the  ENCODE  subroutine  is 
called  to  provide  them. 

ENOODE 

This  subroutine  supplies  a  line  of  compressed  data.  Color  transitions 
on  an  input  line  are  detected  bit-by-bit.  Both  one- dimensional  and 
two-dimensional  lines  are  encoded  depending  on  the  parameter  K.  The  code 
word  is  generated  by  table  look-up,  or  algorithm,  as  appropriate,  and 

added  to  the  coded  line  buffer  via  CODE  1  and/or  CODE  2.  kt 

Y*: 
!  . 
r 

CODE  1  j 

J 

The  subroutine  CODE  1  is  called  by  ENCODE  to  look  up  the  Modified 
Huffman  Code  (MHC)  corresponding  to  a  given  run  length  and  color,  and  > 

add  the  code  word  to  the  coded  line  buffer. 

OODE  2 

The  subroutine  CODE  2  performs  a  similar  function  for  the 
two-dimensional  case.  Based  on  a  particular  feature,  the  appropriate 
code  word  i3  generated  by  table  look-up  or  algorithm  and  added  to  the  • 

coded  line  buffer.  All  code  tables  for  both  one-dimen3ional  and 
two-dimensional  codes  are  stored  in  labelled  common  which  is  initial¬ 
ized  by  a  BLOCK  DATA  subprogram. 
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STUFF 

The  STUFF  subroutine  is  used  only  by  the  READ  compression  algor¬ 
ithm  to  insert  0’s  in  the  coded  data  stream  in  order  to  avoid  ambi¬ 
guities  with  the  line  synchronization  Signal.  A  'O'  is  inserted  after 
every  occurence  of  five  consecutive  ones  in  the  coded  data  stream. 

DECODE  1 

The  DECODE  1  subroutine  decodes  the  MHC.  It  extracts  a  set  of 
n  bits  (n«3  initially)  from  the  coded  line  and  looks  for  a  match  with 
all  code  words  of  length  n,  increasing  n  until  a  match  is  found  or 
the  code  table  is  exhausted.  When  and  if  a  match  is  found,  the 
indicated  bits  are  constructed  on  the  output  line.  Any  errors  detected 
in  the  decoding  process,  such  as  no  match  to  code  table,  or  line  too  long, 
are  flagged. 

DECODE  2 

This  subroutine  performs  the  same  function  as  DECODE  1  for  the 
two-dimensional  line. 

MI2B  and  IUB 

The  subprograms  MI2B  and  lJUB  are  usod  to  pack  and  unpack  a  set 
of  bits  into  (or  from)  an  array  of  words. 
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li.O  Error  Detection/Correction  Procedure 

In  Reference  7.0,  the  following  error  checking  and  processing 
procedure  was  specified  by  the  CCITT  for  testing  the  proposed  two- 
dimensional  coding  techniques: 

1)  Error  checking  -  If  decoded  signals  are  not  exactly 
1728  pels/line,  the  line  is  recognized  as  an  erroneous 
line. 

2)  Error  processing  -  The  erroneous  line  is  replaced  by 
the  previous  line  and  following  lines  are  replaced  by 
white  lines  until  one-dimensional  coding  line  is 
correctly  decoded. 

The  error  detection  and  correction  procedures  used  in  this  simu¬ 
lation  follow  the  spirit,  if  not  the  letter,  of  this  directive. 

Not  all  of  the  proposed  algorithms  produce  a  line  pel  count  that 
can  be  checked  against  the  correct  1728  pels  per  line.  The  error 
checking  was  expanded  to  include  the  detection  of  any  condition  that 
cvald  not  possibly  occur  in  a  correctly  received  transmission.  Some 
examples  of  possible  error  conditions  are: 

•  EOL  occurs  before  1728  pels  have  been  written 

•  More  than  1 728  pels  have  been  written  before  EOL  is 
received 

•  No  word  in  applicable  code  table  matches  received  bit 
pattern 

•  Current  line  decoding  references  a  run  that  does  not 
exist  in  the  previous  line 

»  Pels  are  written  to  the  left  of  the  first  pel  on  the  line 
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Conditions  that  are  only  improbable,  such  as  a  line  of  pels  that 
differs  radically  from  the  previous  line,  are  not  considered  error 
conditions.  Error  conditions  specific  to  each  coding  algorithm  are 
discussed  in  Section  5>.0. 

The  AT&T  algorithm  does  not,  strictly  speaking,  have  a  "one- 
dimensional  coding  line."  Therefore,  the  error  processing  was  ex¬ 
tended,  for  this  algorithm,  to  consider  ar»y  line  that  can  be  decoded 
without  an  error  condition  as  a  correct  line.  In  decoding  lines  that 
reference  previous  lines,  the  last  correctly  decoded  line  is  used  as 
the  reference  line,  regardless  of  whether  or  not  there  are  intervening 
error  lines.  It  is  believed  that  the  chance  of  correctly  decoding  a 
line,  following  an  error  line  that  references  a  previous  line,  is 
extremely  small. 

Upon  detection  of  an  error  condition,  the  decoder  attempts  to 
resynchronize  by  searching  for  the  next  unique  Line  Synchronization 
Signal  (LSS).  All  but  the  AT&T  algorithm  have  different  codes  for 
one-dimensional  and  two-dimensional  lines.  The  state  diagram  for 
error  recovery  for  these  algorithms  is  shown  in  Figure  !*-1 .  For  the 
AT&T  algorithm,  the  One-Dimensional  Decode  and  the  Two-Dimensional 
Decode  states  are  Identical,  and  detection  of  an  BOL  in  the  Search 
state  causes  a  change  to  the  Decode  state,  rather  than  staying  in 
Search. 

Following  Reference  7}  when  an  error  condition  is  detected, 
the  error  line  is  replaced  by  the  previous  co  -'ect  line,  while 
successive  error  lines  are  replaced  by  all-white  lines,  until  a  line 
is  decoded  correctly.  It  should  be  pointeu  out  that  this  procedure 
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may  not  be  optimum.  Repeating  the  last  correct  line  until  the  next 
correct  line  is  received  may  produce  better  results  from  a  subjective 
and  objective  point  of  view. 

Because  of  transmission  errors,  some  of  the  original  image  lines 
may  be  missing  in  the  output,  or  additional  lines  may  be  in  the  output 
that  were  not  in  the  original  image.  In  order  that  a  missing  or  extra 
line  not  have  an  undue  influence  on  the  ESF,  it  is  important  that  the 
original  and  received  images  not  get  permanently  out  of  line  alignment 
when  they  are  compared  to  determine  the  number  of  pel  errors,  To  this 
end,  each  of  the  lines  in  the  original  image  is  assigned  a  serial  line 
number,  and  this  number  continues  to  be  associated  with  the  same  line 
in  the  received  image.  If  a  transmitted  line  is  dropped,  due  to  the 
loss  of  an  BOL,  then  its  line  number  will  be  missing  in  the  output. 

On  the  other  hand,  if  a  line  is  broken  into  two  or  more  lines  in  the 
received  image,  due  to  false  BOL's,  then  its  line  number  will  appear 
more  than  once  in  the  output. 

If  no  lines  are  dropped  or  added,  the  line  numbers  of  the  original 
and  received  lines  that  are  compared  to  detect  pel  errors  will  be 
equal.  When  a  line  is  added  or  deleted,  the  line  numbers  of  the  com¬ 
pared  lines  will  become  unequal.  When  this  occurs  for  the  first  time, 
the  two  lines  with  different  line  numbers  are  compared  to  determine 
the  number  of  pel  errors,  which  is  added  to  the  pel  error  total.  Then, 
instead  of  proceeding  to  the  next  line  in  both  the  original  and  received 
images,  the  next  line  is  used  in  only  one  of  the  images,  with  the 

r  previous  line  being  used  in  the  other  image.  The  line  is  advanced  only 

| 

t  in  that  image  that  has  the  smaller  line  number,  so  as  to  tend  to  make 


the  line  numbers  of  the  two  images  more  equal.  This  continues  until 
the  line  numbers  are  equal,  after  which  the  next  line  is  used  in  both 
images,  until  another  inequality  is  detected. 

This  procedure  provides  a  proper  penalty  for  a  missing  or  added 
line,  but  prevents  thid  type  of  error  from  causing  pel  errors  over 
the  entire  image  below  the  place  where  it  occurred. 
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5.0  ASSUMPTIONS  RELATED  TO  INDIVIDUAL  ALGORITHMS 

Tliia  section  describes  any  modifications  that  were  made  to  the 
compression  algorithms  that  were  not  covered  in  the  contributions. 
Assumptions  and  clarifications  are  also  included. 


5.1  Japan  Algorithm 

No  modifications  were  made  to  the  READ  algorithm.  However,  there 
was  a  question  concerning  the  adaptive  coding.  Specifically,  should  the 
decision  to  use  horizontal  or  vertical  mode  code  be  made  before  or  after 
bit-stuffing  is  performed?  Since  the  examples  in  Appendix  A  showed  that 
this  decision  was  made  before  bit- stuffing,  the  same  approach  was  taken 
in  the  simulation.  Bit  stuffing  was  accomplished  after  a  complete  line 
was  encoded. 
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Two  assumptions  were  made  concerning  the  3M  algorithm.  First,  the 
optional  PASS  mode  was  not  included  in  the  simulation  for  the  following 
reasons:  It  was  felt  that  the  criteria  for  using  the  optional  pass  mode 
was  not  well  defined.  In  addition,  the  optional  pass  mode  v?s  not 
included  in  the  verbal  description  nor  in  the  flow  charts  of  Appendix  B, 
nor  was  it  included  in  the  examples  of  Figure  h  of  the  same  reference. 

The  second  assumption  made  concerns  the  decision  as  to  whether  to 
transmit  a  one-dimensional  or  a  two-dimensional  line.  It  was  assumed  that 
if  both  coded  lines  are  of  the  samy  length,  a  one -dimensional  line  will  be 
transmitted.  It  follows  then,  that  if  the  one- dimensional  line  is  filled, 
it  will  be  the  line  that  is  transmitted. 
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During  the  preparation  of  the  simulation  program,  an  error  was 
found  in  the  code  table  (Figure  3  of  Appendix  B),  The  code  for  VMZ 
was  given  as  '01 .  Since  this  is  ambiguous  with  the  other  code  words, 
a  * 1 1  was  used  for  VMZ.  After  the  computer  program  was  completed  and 
all  of  the  picture  data  had  been  processed,  an  addendum  was  received  that 
corrected  the  error  in  a  somewhat  different  fashion:  All  code  bits  were 
complemented  so  that  0's  became  I's  and  I's  became  O's.  The  result  is 
that  the  number  of  coded  bits  (and  compression  factor)  for  the  two 
techniques  is  the  same,  but  the  effects  of  errors  in  the  coded  data 
stream  may  cause  slight  differences  in  the  error  sensitivity. 

5.3  IBM  Algorithm 

No  modifications  were  made  to  the  IBM  algorithm.  However,  Appendix 
C  did  not  clearly  define  the  treatment  of  the  left  and  right  edges.  It 
was  deduced  from  the  reference  that  the  first  code  word  on  a  line 
always  represents  a  white  run.  Therefore,  any  line  that  begins  with  a 
black  pel  is  coded  as  a  white  run  of  zero  length.  In  order  to  handle 
this  easily,  the  transition  which  starts  the  first  run  is  assumed  to  be 
one  element  to  the  left  of  the  first  pel. 

At  the  right  edge  of  the  document  (according  to  Appendix  C)  "a 
hypothetical  C  is  assumed  after  the  rightmost  pel."  It  was  assumed  that 
this  hypothetical  C  has  the  color  opposite  to  the  last  pel  on  the  line. 
This  assumption  loses  significance  when  the  algorithm  is  applied  to  the 
French  data,  since  all  lines  were  extended  by  1*8  white  pels.  , 
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S.l  XEROX  Algorithm 

The  XEROX  compression  algorithm  consists  of  run  length  encoding 
runs  of  correct  predictions  followed  by  an  incorrect  prediction.  However, 
Appendix  D  does  not  seem  to  cover  the  case  where  the  last  pal  on  a  line 
is  predicted  correctly.  Therefore,  it  was  assumed  that  when  the  last 
pel  on  a  line  is  predicted  correctly,  an  incorrect  prediction  is  assumed 
for  the  next  pel  (one  past  the  edge)  in  order  to  end  the  line  with  an 
incorrect  prediction. 

Since  the  predictor  "window"  overlaps  both  left  and  right  edges 
by  two  pels,  it  was  assumed  that  these  pels  are  white. 

The  reference  allows  the  fallback  to  one- dimensional  coding  to  be 
either  Modified-Hufflnan  Code  or  "zeroing  out"  the  reference  line  of  the 
predictor.  The  former  approach  was  taken  to  be  consistent  with  the 
other  compression  techniques. 

One  other  modification  was  necessary  in  simulating  the  XEROX  code. 
Normally  a  concurrent  search  is  carried  out  for  the  EOL  codes  while 
decoding  data.  This  was  not  possible  with  the  XEROX  r'ode  because 
the  short  EOL  preceding  the  two-dimensional  lines  is  ambiguous  with 
some  one-dimensional  code  words.  This  means  that  if  the  short  EOL  is 
used  to  signify  the  end  of  a  one-dimensional  line,  it  may  end  prema¬ 
turely,  causing  an  error. 

This  problem  was  solved  by  ending  a  line  only  after  decoding 
exactly  1728  pels  and  then  checking  for  the  EOL  code. 
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5.5  AT&T  Algorithm 

This  algorithm,  also  known  as  the  Frank  Code,  is  described  in 
Appendix  E.  One  minor  modification  was  made  to  the  algorithm. 

The  AT&T  Code  will  encode  an  initial  all-white  line  with  no  code  at 
all  between  EOL’s.  Successive  all-white  lines  will  also  be  encoded  in  the 
same  way.  Thus,  it  is  possible  to  obtain  a  string  of  successive  EOL's. 
Since  the  End  of  Message  (EOM)  is  signalled  by  6  successive  EOL's,  as 
in  the  one-dimensional  code,  a  false  EDM  could  easily  be  obtained,  even 
without  transmission  errors.  Some  decoders  may  wish  to  declare  EDM  with 
fewer  than  6  successive  EOL's  in  order  to  obtain  a  more  reliable  detection 
of  BOM.  Therefore,  the  AT&T  Code  was  changed,  to  provide  for  a  zero  fill 
bit  before  the  EOL  if  there  was  no  other  code  between  the  EOL's.  In 
effect,  the  minimum  number  of  bits  per  line  is  13,  regardless  of  the 
specified  minimum  compressed  line  length.  This  extra  bit  permits  the 
decoder  to  distinguish  between  successive  EOL's  due  to  all-white  lines 
and  the  EOM. 

The  error  conditions  that  can  occur  with  this  code  are  (see  Appen¬ 
dix  E): 

1)  black  pels  are  written  to  the  left  of  the  first  pel  or 
to  the  right  of  the  last  pel. 

2)  a  code  word  references  a  non-existent  bltck  run  in  the 
previous  line 

3)  two  black  runs  touch  or  overlap 

li)  the  beginning  of  a  run  is  to  the  right  of  the  same  run 

5)  no  code  word  in  the  code  table  marches  the  received  bits 
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Note  that  receiving  an  BOL  before  a'.l  1726  pels  have  been  written  is 
a  normal  occurence  for  the  Frank  Code. 

The  code  table  used  is  that  in  Appendix  B  of  Appendix  E. 
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6.0  MEASUREMENT  RESULTS 


During  the  course  of  this  contract,  Delta  Information  Systems 
prepared  five  separate  computer  programs  to  simulate  each  of  the  5 
coding  algorithms.  All  5  of  these  programs  were  ran  on  the  Hybrid  Com¬ 
puter  Facility  at  the  Defense  Communications  Engineering  Center  in 
Reston,  Virginia.  Twenty  computer  runs  were  performed  for  each  of  the 
5  coding  algorithms,  The  parameters  for  these  run3  and  the  raw  output 
measurement  data  for  each  run  is  tabulated  in  section  6.1,  Sections  6.2 
and  6.3  highlight  and  summarize  the  compression  and  error  sensitivity 
data  respectively. 

6.1  Raw  Measurement  Data 

Thu  parameters  which  are  varied  in  the  simulation  process  are  listed 
below  along  with  the  different  values  that  each  parameter  was  assigned 
throughout  the  20  test  runs. 


Test  document  number 

U,5,7 

Error  phase 

0,1,2 

Transmission  error  file 

1,2,3,U 

Minimum  scan  line  time  (ms) 

10,20 

K-factor 

2>b 

Transmission  bit  rate  (Kbps) 

ii,800 

Resolution  (lines/mm) 

3.85,  7.7 

If  every  combination  of  these  parametric  values  was  tested,  a  total  of 
381i  computer  runs  would  be  required  which  is  neither  reasonable  nor 
necessary.  Twenty  computer  runs  were  executed,  and  Table  6-1  is  a 
tabulation  of  the  different  parameters  for  each  run.  For  reasons  of 
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TAHLI  6-1  TABULATION  OF  TBT  TOW  FABAMBTIRS 


TtSf 

noemoMT 

transit 

BRHOR 

FHASB 

TRANSMISSION 

IWIOR 

FILS 

KIN.  SCAN 
LINK  TIME 
(■i.) 

VERTICAL 
RESOLUTION  * 
(11&m/m.) 

1 

b 

0 

1 

20 

3.85 

2 

k 

0 

1 

20 

7.70 

3 

It 

0 

2 

20 

3.85 

It 

it 

0 

2 

20 

7.70 

5 

it 

0 

3 

20 

3.85 

6 

it 

0 

3 

20 

7.70 

7 

it 

0 

it 

20 

3.85 

8 

h 

0 

It 

20 

7.70 

9 

k 

1 

1 

20 

7.70 

10 

it 

2 

1 

20 

7.70 

11 

it 

0 

1 

10 

3.85 

12 

it 

0 

2 

10 

7.70 

13 

b 

0 

. 

3 

10 

3.85 

lit 

k 

o 

It 

10 

7.70 

15 

i 

0 

20 

3.85 

16 

i 

0 

1 

10 

7.70 

17 

5 

0 

1 

10 

7.70 

18 

5 

0 

1 

20 

3.85 

19 

7 

0 

1 

20 

3.85 

20 

7 

0 

1 

10 

7.70 

*  For  Raaolntion  of  3.85  IIbw/mi  K-2 
*  *  •  7.70  «  I»lt 
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test  economy,  the  set  of  parameters  used  in  Test  Run  number  1  has  been 
selected  as  a  baseline,  and  other  runs  were  chosen  as  variations  from 
that  set  of  values.  Again,  for  reasons  of  test  economy,  the  K-factor 
was  set  at  2  and  U  when  the  resolution  was  chosen  to  be  3.85  and  7.7 
lines/mm.  respectively. 

The  raw  test  results  relating  to  compression  and  error  sensitivity 
for  each  coding  algorithm  are  included  in  Table  6-2  through  6-6.  The 
definitions  of  these  measurement  parameters  are  reviewed  below. 

o  Coded  Data  Bits  -  Total  compressed  bits  required  to 
transmit  the  document  excluding  all  overhead  bits  - 
EDL,  fill,  etc. 

o  Coded  Bits  -  Total  compressed  bits  required  to  transmit 

the  document  including  all  overhead  such  as  EOL,  fill,  etc. 

o  CF^  -  Number  of  document  pels  divided  by  the  number  of 
coded  data  bits 

*£* 

o  CF^  -  Number  of  document  pels  divided  by  the  number  of 
coded  bits 

o  BER  -  Transmitted  bits  in  error  divided  by  the  number  of 
coded  bits 

o  ESF  -  Number  of  incorrect  pels  divided  by  the  number  of 
transmitted  bits  in  error. 

The  number  of  stuffing  bits  is  a  parameter  peculiar  to  the  READ 
Algorithm  and  therefore  is  included  in  Table  6-2  only.  Likewise,  only 
the  3M  code  employs  an  adaptive  K-factor,  and  consequently,  the  number 
of  lines  encoded  by  the  two  dimensional  algorithm  is  included  in  Table  6-3 

*  High  Resolution  -  2,376  lines  x  1728  pelsAie  =  U,  105,728  pels 
Standard  Resolution  -  1,1 88  lines  x  1728  pels/line  »  2,052,862*  pels 
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only. 

The  CCITT  suggested  that  experimenters  should  measure  the  statistics 
related  to  the  number  of  bits  required  to  define  the  individual  scan 
lines.  Statistics  which  were  measured  are  minimum  bitsAine,  maximum 
bitsAine,  average  bitsAine,  and  standard  deviation.  Of  the  twenty 
test  runs,  only  10  give  independent  data  related  to  coded  line  statistics. 
The  parameters  of  these  ten  independent  measurements  are  tabulated  in  Table 
6-7  along  with  the  test  results  for  the  READ  code.  Table  6-8  gives  the 
results  for  the  3M  and  IBM  codes,  while  Table  6-9  tabulates  the  data  for 
the  Xerox  and  AT&T  algorithms. 

6.2  Summary  of  Compression  Data 

Two  types  of  compression  data  were  computed  in  the  simulation 
process  -  transmitted  bits  and  compression  factor.  Since  these 
parameters  are  merely  two  different  measures  of  the  same  function,  it  was 
decided,  for  reasons  of  simplicity,  to  summarize  the  compression  data 
using  only  the  transmitted  bits.  The  number  of  coded  data  bits  are 
summarized  for  all  algorithms  in  Table  6-10  while  the  total  bits  in¬ 
cluding  overhead  is  tabulated  in  Table  6-11. 

At  the  bottom  of  each  table,  the  average  number  of  bits  for  high 
resolution  and  low  resolution  tests  is  computed.  It  is  recognized 
that  such  an  averaging  process  infers  an  equal  weighting  of  the  compon¬ 
ent  test  runs.  It  is  also  recognized  that  this  is  probably  not  the 
optimum  weighting  function  to  be  applied  to  the  data.  Nevertheless, 
the  average  was  computed  primarily  as  a  data  reduction  process  and  can 
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STATISTICS  -  READ  ALOOKITHK 


ALGORITHM  TEST 
DtSIO- 
HATXON 


MINIMUM 
BITS /LIKE 

MAXIMUM 

BITS/LIH3 

AVERAGE 

BITS/LINE 

96 

1,089 

371 .23 

96 

1,058 

318.9U 

U8 

1,089 

352.66 

1*8 

1,058 

298.62 

96 

813 

161.96 

1*8 

792 

109.56 

1*8 

1,055 

16a. 98 

96 

1,063 

222.29 

96 

718 

363.13 

1*8 

707 

301  .a6 

96 

1,10U 

362.07 

96 

1,089 

306.25 

1*8 

1,101* 

3a3.2a 

1*8 

1,089 

286.03 

96 

797 

157.86 

1*8 

797 

107.3a 

as 

1,063 

i59.ao 

96 

1,063 

2ia.i3 

96 

718 

3a7.6l 

U8 

718 

283.17 

337.1U 


287.90 


352.72 


3 


15U.18 


137.87 


167.83 


191  .WU 


18U.50 


173.05 


329.55 


31*5.17 


289.12 


1U6.30 


132.95 


161.22 


182.U5 


175.6a 


1650*0 
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TABLE  6-9  CODED  LINE  LENGTH  STATISTICS  -  XEROX,  ATT  ALGORITHMS 


TEST 

ALGORITHM  DESIG¬ 
NATION 


A 


B 


C 


MINIMUM 

BITS/LINE 

i 

MAXIMUM 

BITS/LINE 

AVERAGE 

BITSAENE 

STANDARD 

DEVIATION 

96  | 

1,2i*0 

395.11 

355.07 

96 

1,091 

3U7.81 

303.63 

1*8 

1  >21*0 

378.11 

369.79 

1*8 

1,091 

330.32 

318.59 

96 

167.1*0 

161 .1*2 

1*8 

831 

122.53 

152.90 

1*8 

1,062 

188.67 

171*. 59 

96 

1,062 

228.08 

191.1*6 

96 

717 

378.36 

183.17 

U8 

931 

328.01* 

180.1*3 

96 

1,357 

96 

1,357 

1*8 

1,357 

1*8 

1,357 

96 

938 

1*8 

938 

1*8 

1,269 

96 

1,269 

96 

882 

1*8 

882 

392.71 


321.3 


373.11 


300.1*8 


162.88 


108.91 


225.11 


379,71 


375.1*8 


305.02 


391 .36 


320.88 


163.02 


IU3.U3 


207.72 


207.70 
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TABLE  6-'~  SUMKARI  OF  CODED  DATA  BITS 


TEST  VERT. 

DOCUMENT  RESOL.  JAPAN 

#  lines/rnn. 


OVERALL  AVG. 


XEROX 


3.85  |  390,927  397,51*9  383,562  1*30,660  !*l5,03i* 


620,671  668,555  627,122  71*8,1*06  655,807 


113,956  126,122  115,011  133,050  112,51*6 


17U,838  201,902  1 81 ,  7U0  233, 761*  175,159 

21 0 ,01*0  226,815  210,809  236,281*  220,1*29 

322,307  31*6,058  329,697  1*1 9,000  335,235 

385,871  399,1*97  379,1*60  1*21,857  1*15,929 


616,812  676,8144.  628,606  7li9,859  663,918 


3.85  I  275,198  287,U97  272,210  305,1*63  290,981* 


1*33,657  1*73,31*0  14*1,791  537,757  1*5  7 ;  530 


351*,1*27  380,1*18  357,000  1*21,610  I  37li.257  t 


TABLE  6-1 1  SUMMAHT  OF  CODED  BITS 


TEST  KEN.  SCAN  VERT. 
DOC.  LINE  TIME  RESOL. 

#  (ms.)  lines/mm. 


3.85 


10 


AVG. 


AVG. 


OVERALL  AVERAGE 


JAPAN 

t 

3M 

IBM 

XEROX 

AT&T 

1*19,636 

1*19,039 

1*07*.  850 

1*1*8,833 

1*1*3,326 

678,257 

709,588 

679,677 

782,611 

71 1*, 01 6 

1*1*2,1*31* 

1*1*1,101* 

1*30,215 

1*68,31*1 

1*66,61 3 

727,1*18 

757,869 

727,71*0 

822,790 

763,1*81 

188,070 

192,1*81* 

187,619 

198,71*9 

193,573 

250,379 

260,382 

255,119 

290,172 

258,832 

253,989 

261*,  163 

251*,  1*59 

269,51*1* 

267,503 

370,1*1*8 

i 

392,062 

378,810 

1*1*7,691 

388,1*19 

1*23,01*0 

1*31 ,1*81 

1*  13,01*2 

1*1*8,809 

1*51,171 

661*,  857 

716,31*0 

672,892 

779,185 

709,811* 

3.85  3U5,U3ii  31*9,651*  338,637  366,855  36i*,l*37 


538,272  567,21*8  5U2,8U7  62l*,l*90  566,912 


Mil  ,853  1*58,101  1*1*0,71*2  1*95,672  1*65,671* 


be  considered  as  one  possible  basis  for  weighting  the  data.  For  similar 
reasons,  the  overall  average  of  all  runs,  combining  both  high  and  low 
resolution,  has  been  computed. 


6.3  Svtnmary  of  Error  Sensitivity  lata 

.All  of  the  20  computer  runs  provide  a  separate  and  distinct  error 
sensitivity  measurement .  In  an  effort  to  reduce  the  data,  the  average 
E8F  for  all  20  runs  has  been  computed  for  each  algorithm  and  tabulated 
below. 


Algorithm 


ESFaVg  -for  20  runs 


Japan 


Xerox 


T.t  is  recognized  that  this  averaging  process  heavily  weights  test 
document  number  Ij,  error  phase  zero,  transmission  error  file  one,  and  an 
MSLT  of  20  ms.  Nevertheless,  this  averaging  process  would  appear  to 
be  one  meaningful  way  to  weigh  the  data  and  reduce  it. 
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appendix  a 

CCITT  STUDT  GROUP  XIV 
CONTRIBUTION  No.  1*2 

Source:  Japan 


STUDY  GROUP  XIV  -  CONTRIBUTION  No.  42 

SOURCE  :  JAPAN 

TITLE  :  PROPOSAL  FOR  DRAFT  RECOMMENDATION  OF  TWO-DIMENSIONAL  CODING  SCHEME 


1 .  Introduction 

In  order  to  meet  the  increasing  demand  for  high-speed 
document  facsimile  over  telephone-type  circuits,  CCITT  Study 
Group  XIV  has  been  conducting  study  on  the  standardization  of 
Group  3  machines.  At  the  meeting  of  November  1977,  a  draft 
Recommendation  T.4  related  to  Group  3  machines  was  produced. 

In  Paragraph  4.1,  Section  4  "Coding  Scheme"  of  the  draft 
Recommendation  T.4,  the  one-dimensional  coding  scheme  using  the 
Mod ified-Huffman  code  is  defined.  In  Paragraph  4.2,  it  is  noted 
that  the  one-dimensional  coding  scheme  may  be  extended  as  an 
option  to  a  two-dimensional  scheme,  and  this  is  the  subject  of 
further  study. 

Since  there  have  been  strong  demands  for  higher  speed 
transmission  of  documents,  the  facsimile  equipments  which  adopt 
the  two-dimensional  coding  schemes  having  higher  compression 
factors,  compared  with  the  one-dimensional  coding  scheme  are 
nowadays  widely  used  in  Japan  and  in  several  other  countries. 

This  fact  proves  the  superiority  of  the  two-dimensional 
coding  schemes,  which  enable  a  remarkable  speeding-up  of  document 
transmission  with  scarcely  any  increase  in  system  cost  and  without 
any  great  degradation  in  quality  of  received  copies  caused  by 
transmission  errors,  compared  with  the  or.w-dimensional  coding 
scheme. 

Japan  has  previously  pointed  out  the  effectiveness  of  two- 
dimensional  coding  schemes,  and  has  several  times  presented 
contributions  showing  actual  coding  schemes  and  comparative  data 
on  compression  factors  at  the  Group  3  Special  Rapporteur's  Meetings 
of  the  last  study  period.  Furthermore,  at  the  Study  Group  Meeting 
of  November  1977,  Japan  presented  a  contribution  (COM  XIV-No.  15-E) 
stating  that  a  two-dimensional  coding  scheme  should  be  selected 
from  among  two-dimensional  line-by-line  coding  schemes,  and  was 
requested  to  present  a  further  detailed  contribution  on  this  subject. 
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Under  these  circumstances,  Japan  has  earnestly  studied  two- 
dimensional  coding  schemes  in  order  to  make  possible  the  further 
speeding-up  of  Group  3  machines.  As  a  result  of  these  studies,  in 
order  to  complete  the  draft  Recommendation  T.4,  Japan  proposes  the 
following  system  as  the  two-dimensional  coding  scheme  for  the 
draft  Recommendation. 


2.  Coding  Scheme 


The  coding  scheme  proposed  is  a  two-dimensional  coding 
scheme,  called  READ  (Relative  Element  Address  Designate)  coding, 
which  can  be  easily  extended  from  the  one-dimensional  coding 
scheme. 


Coding  algorithm,  line-synchronization  signal,  FILL,  setting 
of  Parameter  K  and  RTC  signal  are  described  in  detail  in  ANNEX  1, 
in  a  format  capable  of  being  inserted  in  Paragraph  4.2  of  the  draft 
Recommendation  T.4. 


3 •  Coding  Efficiency  f 

! 

The  transmission  times  obtained  by  computer  simulation  are  { 

shown  in  ANNEX  2.  The  eight  documents  contained  in  magnetic  tapes  I 

offered  by  French  PTT  were  used  as  the  test  documents. 

i 

Compared  with  the  one-dimensional  coding  scheme,  the  ratio 
cf  transmission  time  is  82.7  %  (K  *  2)  for  the  normal  definition 
standard,  and  62.9  %  (K  «  4)  for  the  higher  definition  standard. 

When  transmission  errors  can  be  corrected  by  retransmission, 
such  as  in  data  networks,  Parameter  K  can  be  set  to  K  *  oo .  In 
this  case,  the  ratio  ot  transmission  time  will  become  65.5  for 

the  normal  definition  standard  and  ?0.7  °b  for  the  higher  definition 
standard,  compared  with  the  one-dimensional  coding  scheme. 

4.  Conclusion 

The  proposed  coding  scheme,  at  the  transmission  rate  of  4800 
bps,  is  capable  of  transmitting  the  test  documents  in  an  average 
of  4?  seconds  for  the  normal  definition  standard,  and  in  an  average 
of  73  seconds  for  the  higher  definition  standard. 

The  two-dimensional  coding  scheme  proposed  here  is  superior 
in  respect  to  compression  factor  compared  with  conventional  coding 
schemes,  while  possessing  ample  capability  against  error  vulnerability 
and  simplicity  in  system  configuration. 


For  the  document  facsimile  of  complicated  ideographic 
characters  (Chinese  characters,  for  example)  in  wide-spread  use 
over  the  world,  transmission  employing  higher  definition  standard 
is  indispensable.  In  such  cases,  the  effectiveness  of  this  coding 
scheme,  which  can  greatly  shorten  the  transmission  time  in  particular, 
is  extromely  great. 
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In  addition,  while  this  coding  scheme  can  be  easily  made  to 
interwork  with  the  standard  one -dimensional  system,  in  the  case  of 
data  networks  with  superior  line  quality  that  have  adopted  error 
correction,  this  coding  scheme  can  be  applied  with  Parameter  K  set 
to  K  *oo.  This  will  result  in  the  further  speeding  up  of  transmission. 

In  view  of  the  featured  described  above,  Japan  proposes  that 
the  READ  coding  scheme  should  be  adopted  as  the  two-dimensional 
system  for  Group  3  machines. 


A- 3 


Villi 


T**7 ^ ?7J*I " ■WyW|l> J-ff  !■.  l^j'SK’-VS 


COM  XIV-No.  42-E 


ANNEX  1 


4.2  Two-dimensional  coding  scheme 

The  two-dimensional  coding  scheme  shall  ba  used  as  an 
axtanaion  of  the  one-dimensional  ceding  achama  specified  in 
Paragraph  4.1. 

a)  DATA 

( 1 )  Parameter  K 

In  order  to  limit  the  disturbed  area  in  the  event  of  trans¬ 
mission  errors,  one-dimensional  coding  is  applied  for  each 
first  line  of  every  successive  K  lines  and  two-dimensional 
coding  is  ippliad  for  the  following  iK-1)  lines.  The  value 
of  K  is  called  Parameter  K. 

(2)  One-dimensional  coding 

This  conforms  with  the  description  of  Item  a)  DATA,  Para¬ 
graph  4.1. 

(3 )  Two-dimensional  coding 

l )  Starting  picture  element  and  changing  picture  element 

A  changing  picture  element  is  the  colour  changed  picture 
element  from  black  to  white,  or  vice  versa,  along  a  scanning 
line . 

In  two-dimensional  coding,  each  coding  line  is  coded 
line-by-line,  using  the  preceding  changing  picture  element 
along  the  coding  line  or  the  changing  picture  element  on  the 
reference  line  which  is  just  above  the  coding  line.  The 
coding  line  which  has  been  coded  becomes  the  new  reference 
line  for  the  next  coding  line. 

The  starting  picture  element  and  the  changing  picture 
elements  shall  be  defined  as  follows:  (see  Figure  3) 

a^:  Starting  picture  e  Lenient  on  the  ceding  line 

which  becomes,,  the  reference  picture  element 

a..  Changing  picture  element  on  the  coding  line, 
next  to  a„ 


■i 

vr 

I 

'* 

4 

4 


t 

.'i 


07vl) 


Changing  picture  element  on  the  coding  line, 
next  to 

First  changing  picture  element,  whose  coloui 
is  opposite  to  a0,  which  occui s  on  the 

reference  line  after  the  picture  element  just 
upon  a 


Changing  picture  element  coming  after  b  on 
the  reference  line  * 

-1, 


A->| 


-(tv,  ,  , 
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bi  b2 


Figure  3  -  Starting  picture  element  and 
changing  picture  elements 


2)  Coding  modes 

The  following  three  kinds  of  coding  modes  are  adopted 
and  selectively  used,  according  to  the  procedure  described 
in  Paragraph  2.3* 

( i )  Pass  mode 

As  shown  in  Figure  4,  the  state  where  changing  picture 
elements  b1  and  b,,  on  the  reference  line  are  detected 

before  changing  picture  element  a^  is  defined  as  Pass  mode. 


_ ^However,  the  state  where  occurs  just  upon  a  ,  as 
shown  in  Figure  5i  is  not  considered  as  Pass  mode. 


bi  b2 


Figure  ?  -  An  example  not  corresponding  to  Pass  mode 
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(li)  Horizontal  mod# 

The  coding  of  distance  a^a^  and  distance  a^a^  on  tlie 
coding  line  is  defined  as  Horizontal  mode,  (see  Figure  6) 

<iii )  Vertical  mode 

The  coding  of  the  relative  distance  a^b^  between  the 
changing  picture  element  on  the  reference  line  and  the 
changing  picture  element  a^  on  the  coding  line  is  defined 
as  Vertical  mode,  (see  Figure  6) 


Vertical  mode 


3)  Coding  procedure 

The  coding  line  and  the  reference  line  are  observed  at 
the  same  time  from  left  to  right,  and  the  changing  picture 
elements  are  detected  successively.  Then,  whenever  one  of 
Pass,  Vertical  or  Horizontal  modes  is  detected,  the  code 
shown  in  Table  3  is  generated. 

Step  1 

When  Pass  mode  is  detected,  it  is  coded  as  Pass  mode  code 
"1110",  as  shown  in  Table  3-  After  this  processing, picture 
element  a'  just  under  b  is  regarded  as  the  new  starting 

v  fa 

picture  element  aQ  for  the  next  coding,  (see  Figure  4) 

Step  2 

When  a,  is  detected  on  the  coding  line  before  b  is 

detected  on  the  reference  line,  adaptive  coding  is  performed. 
That  is,  as  shown  in  Table  3,  the  number  of  bit3  (aQai) 

(the  sum  of  the  4  bits  of  Horizontal  mode  code  "1111"  and 
the  number  of  bits  obtained  by  one-dimensional  coding  of 
aQa1>  and  the  number  of  bits  J  obtained  by  Vertical  mode 

coding  of  a^b^,  are  measured  respectively  and  the  number  of 

bits  of  both  codings  are  compared,  (see  Figure  6) 
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(x)  Case  1 :  (*0*J  >  (V  J 

As  shown  in  Tabl*  3,  a^  is  coded  by  Vertical  mode, 
after  which  position  a^  is  regarded  as  new  starting  picture 
element  aQ  for  the  next  coding. 

(  ii  >  Cam  2:  (vJS(*l6J 

/ 

Scanning  is  performed  until  changing  picture  element 

a  on  the  coding  line  is ‘.detected.  Then,  as  shown  in 
2 

Table  3,  following  Horizontal  mode  code  "1111",  aQa^  ant* 
a  a0  are  respectively  coded  by  one-dimensional  coding. 
After  this  processing  position  a^  is  regarded  as  the  new 
starting  picture  element  a^  for  the  next  coding. 


4)  Processing  first  and  last  picture  elements  in  a  line 

(i)  Processing  first  picture  element 

Ihe  first  starting  picture  element  aQ  on  each  coding 

line  is  iaaginarily  set  at  a  position  just  before  the  first 
picture  element,  and  is  regarded  as  a  white  picture  element. 
In  this  case,  the  distance  a^a1  is  replaced  by  aga^-1. 

(ii)  Processing  last  picture  element 

Coding  of  each  line  is  ended  after  coding  of  the 
changing  picture  element  a^  or  a^  positioned  imaginarily 

next  to  the  last  picture  element.  If  b^  or  b0  is  not 

detected  on  the  reference  line,  an  imaginary  picture  element 
just  after  the  last  picture  element  is  assumed  as'b^  or  bn. 

A  flow  diagram  for  this  coding  scheme  is  shown  in  APPE.VDIX  1, 
and  coding  examples  in  APPENDIX  2. 
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TABLE  3 
Code  table 


Mode 

Elements  to  be  coded 

Notation 

Code 

Pass  mode 

bt  ,  52 

P 

1110 

Horizontal 

mode 

aodi ,  ai  d2 

H(aoa,a|02] 

1111+M(OoOi)+M(Oi  02) 

Gj  just 
under  bt 

Qi  bi »  0 

V(0) 

0 

Vertical 

mode 

a-t  on  the 

a<  bi  *  1 

Vr  (aibi) 

100 

right  of  bi 

a<  b<  2  2 

1100  +  D  (a^-l  ) 

ai  on  the 

a1  b1 »  1 

VL(Qibi) 

101 

left  of  bi 

1101  +D  ( b^-1  ) 

(Note  l)  Code  D(n)  represents  the  following  n  bit  code: 

D(n)  :  00 . 01 

v,„  ■■  — ■* 

(n-1)  bits 

\ _ / 

n  bits 

(Note  2)  Code  M(  )  of  Horizontal  mode  represents  the 
code  words  in  Tables  142,  Paragraph  4.1, 
the  draft  Recommendation  T.4. 

b)  Line  synchronization  signal 

One  of  the  two  line  synchronization  signals,  LSS1  or 
LSS2,  precedes  the  data  signals  of  the  one-dimensional  or  two- 
dimensional  coding  lines  respectively. 

Format : 


(i)  The  line  synchronization  signal  to  be  added  to  the  head 
of  the  one-dimensional  coding  line 


(1791) 
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lii)  The  line  synchronization  signal  to  be  added  to  the  head 
of  the  two-dimensional  coding  line 

LS52  :  01111110 

To  make  the  signals  LSSl  and  LSS2  unique,  a  ''0"  is 
inserted  in  the  date  stream  after  any  occurrence  of  five 
continuous  "l"s. 

c)  FILL 

FILL  is  inserted  between  a  line  of  DATA  and  the  line 
synchronization  signal,  LSSl  or  LSS2,  but  is  not  inserted  in 
DATA. 

Format  :  variable  length  string  of  0's. 

d )  Setup  of  Parameter  K 

Parameter  K  should  be  fixed  as  follows. 

Normal  definition  standard  :  K  =  2 
Higher  definition  standard  :  K  =  4 


e)  Return  to  control  (RTC) 

The  end  of  a  document  transmission  is  indicated  by 
sending  six  consecutive  LSSl's.  Following  the  RTC  signal, 
the  transmitter  will  send  the  post  message  command  in  the 
Recommendation  T.30  framed  format  at  the  data  rate. 

Format  :  01111111  .  01111111 

(total  of  6  times  LSSl) 

To  further  clarify  the  relationship  of  the  signals 
defined  herein,  Figures  7  and  8  are  offered  in  the  case  of 
K  *  2.  Figure  7  shows  several  scan  lines  of  data  starting 
at  the  beginning  of  a  transmitted  page.  Figure  8  shows  the 
last  several  lines  of  a  page. 


i w.u>, Kl  Iff* 
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(to  Annex  1) 


Figure  (a)  shows  coding  examples  of  the  first  pert  of 
scanning  lines  end  Figure  (b)  coding  examples  of  the  lest  part, 
while  Figure  (c)  shows  other  coding  examples.  The  notations  P, 
H  and  V  in  the  figures  are,  as  shown  in  Table  3,  the  symbols 
for  Pass  mode,  Horizontal  mode  and  Vertical  mode  respectively. 
The  picture  elements  marked  with  black  spot  indicate  the  chang¬ 
ing  picture  elements  to  be  coded. 


mi 

V(0) 


®  p 


(D  vl  ( i ) 

i 


©  Vr  (2 ) 
1 


H(0,3>  Vr  ( 1 ) 


Vl(8)  H  (3,6) 
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Figure  (a)  -  Coding  examples  (a)  ;  first  part  of  scanning  line 
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1.0  INTRODUCTION 


3M  Company  has  studied  the  EDIC  code,  the  READ  code, 
and  the  IBM  code  in  an  attempt  to  find  a  woikable 
compromise.  3M  lealizes  that  such  a  compiomise  should 
be  applicable  not  only  to  the  authois  of  the 
prospective  code,  but  to  all  the  CCITT  participants. 

In  attempting  to  find  this  compiomise,  the  vaiious 
compression  algorithms  were*  combined  into  one 
generalized  model  wherein  etch  parameter  was  expressed 
in  abstiact  teims  lathei  that'  actual  codes.  The 
parameters  were  then  individually  analyzed  and 
assiqned  code  lengths  usinq  the  concepts  8nd 
statistical  data  disclosed  in  the  prior  compression 
schemes.  The  individual  results  of  this  parametric 
analysis  wet  e  combined  to  qeneiate  a  detailed  code 
table  and  an  encoding  algorithm.  Durinq  this  process, 
ease  of  implementing  the  resultant  algorithm  was  a 
constant  cons  1 de t at  1  on  . 

Since  this  encoding  algorithm  was  generated  to  a  larqe 
degree  by  studying  other  code  sets,  3M  claims  no 
lights  to  the  resultant  code  algorithm,  furthetmoie, 
the  improvements /mo difications  to  the  code  set  ate 
offered  to  aid  in  teaching  a  compromise  on  s 
two-dimensional  algorithm.  Therefore,  keeping  with 
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this  spaiit.  no  pia\ate  claims  aie  made  to  these 
modi f icat ions  . 

This  papet  assumes  that  the  i  eadei  is  familial  with 
the  compiessaon  algorithms  beann  discussed.  If 
backqiound  infotmation  is  needed,  please  tefei  to 
Refeienees  1,  2,  3,  and  4. 


CODE  SELECTION  FOR  EACH  PARAMETER 


Line  Synchiomzat  ion  Signal 

The  Line  Synchi  omzat  ion  Signal,  LSS,  selves  two 
purposes.  It  specifies,  non-amb i guousl y ,  the 
beginning  and  end  of  each  compiessed  line,  and  it 
gives  infotmation  on  how  to  decode  the  ensuinq  line. 

The  choice  foi  the  LSS  was  eleven  zeros,  followed  by  a 
one,  followed  by  a  tag  bit  indicating  the  type  of  mn 
to  follow  (i.e.,  "0"  indicates  one-dimensional  codino 
and  "1"  indicates  two-dimensional  coding).  The 
teasons  foi  this  choice  aie  as  follows. 

l)  Using  an  HOLC  flag  code  is  undesirable  since  it 
is  a  level  2  link  control  siqnal  and  should  be 
kept  independent  from  data  comptession  algorithm 
which  is  on  a  hiqhet  level  in  the  layeted 
piotocol  stiuctuie  (ref.  Tempotaty  Doc.  No.  8-E 
CCITT  SG  XIV  12/11-12/15).  Fuithermoie,  use  of 
the  HDLC  flag  necessitates  zeto  inseition. 

u)  The  mechanism  is  ahead)  in  place  to  teceive, 
with  teasonabie  oiotection,  the  standatd 
one-dimensional  EOL  code.  This  mechanism 
includes  a  method  foi  handiinq  fill  data  and 
doinq  a  line  by  line  check  on  the  data  (i.e., 
when  EOL  is  delected,  exactly  1728  pels  would 
have  been  decoded). 


Fiequency  of  Resynchi on l zat ion 

The  lepetiion  peiiod,  expressed  in  number  of  lines,  at 
which  the  scanned  data  should  be  compiessed  usinq  the 
one-dimensional  algorithm  is  the  paiametei  K.  It  was 
decided  that  K  should  be  adaptive  but  confined  within 
the  bounds  of  K  less  than  oi  equsl  to  4  at  any  given 
time.  The  seasons  foi  this  choice  8ie  as  follows: 
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i)  The  mechamsm'is  alieady  available  to  adaptively 
send  one-dimensional  lines  (i.e.,  the  TAG  bit). 

11)  The  top  scan  of  a  line  of  characters  and  the 
first  white  scan  at  bottom  of  a  line  of 
characters  can  often  be  encoded  mote  efficiently 
by  a  one-dimensional  algorithm. 

m)  The  choice  of  the  alqorithm  for  selecting  whic.' 
lines  will  be  encoded  one-dimension  need  not  be 
st  andar  di zed  . 

It  was  pointed  out  in  the  IBM  papet  that  a  code  set 
can  be  adapted,  teal  time,  to  the  statistics  of  the 
tun  beinq  encoded.  The  main  ciitetia  fot  the  code 
selectivity  is  whether  the  run  being  encoded  is 
following  a  horizontal  mode  tun  ot  a  veitical  mode 
t  un . 

In  an  effort  by  3M  to  simplify  the  code  alqotithm,  it 
was  assumed,  but  not  statistically  ptoven.  that  since 
K  would  adaptively  select  which  lines  would  be  encoded 
one-dimensior.ally  ,  the  major  it  y  of  the  coiielated 
horizontal  mode  runs  would  be  included  within  these 
lines.  Thete  would,  therefore,  be  little  reason  to 
incoipotate  the  multiple  code  set  capability  into  the 
encoding  alqoiithm. 


2 . 3  Run  Coding  Method 


The  end  of  a  run  may  be  coded  as  the  Hotizontal  Run 
Length,  HRL ,  tefetence  ftom  the  stait  of  the  tun  ot  by 
the  telationship  the  end  of  the  run  has  to  a  tun  on 
the  ptevious  line.  This  veitical  mode  method  can  be 
futthei  sub-c at eqo t 1  zed  as  the  cutient  tun  endino 
directly  Under  the  ptevious  tun,  VMU ,  to  the  Rioht  of 
the  pievious  lun,  VMR,  or  to  the  Left  of  the  previous 
tun,  VML  . 

Veitical  Mode 


The  references  show  that  the  most  likely 
occuttence  is  fot  transition  elements  at  the  end 
of  vertically  related  tuns  to  be  directly 
aligned.  Thus,  this  condition  should  be  coded 
with  a  single  bit.  The  refetences  also  state 
that  the  second  most  likely  occurrences  ate  that 
transition  elements  ate  displaced  by  one  pel, 
left  ot  right,  ftom  vertically  related  pels. 
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These  two  events  have  been  qiven  equal  weiphtiitq 
and  each  assiqned  a  thtee  bit  code.  Howevet,  in 
typed  sci  ipt  document,  a  displacement  to  the  left 
(iiqht)  is  likely  to  be  followed  by  a  simiiai 
displacement  to  the  left  (nqht).  Theiefoie,  the 
second  most  likely  event  is  that  two  successive 
pel  displacements  ate  hot i zont  all y  coitelated 
(Reference  fig.  1).  This  event  is  qiven  a  two 
bit  code  and  successive  pel  displacement,  which 
aie  not  hotizontally  correlated  and  ate  qiven  a 
three  bit  code  wotd. 

Refetence  4  shows  that  aftei  considetino  vettical 
pel  displacements  cf  plus  or  minus  one,  little 
can  be  gained  by  extending  the  code  to  covet 
latqet  horizontal  displacements.  Thus,  the 
choice  was  made  to  not  code  the  vettical  mode 
past  one  pel  displacement.  This  is,  of  coutse.  a 
value  judgement  which  has  been  made  based  on 
simplification  of  implementation. 

Horizontal  Mode 

This  mode  was  the  next  most  ptobable  event  and 
was  given  a  4  bit  code  followed  by  two  modified 
Huffman  run  length  codes. 

The  use  of  two  successive  run  lenoth  codes  was 
chosen  since  it  has  been  shown  that  one 
hoiizontal  run  length  tends  to  follow  anothei 
horizontal  run  length. 


2.4  Special  Code  Words 

These  code  types  ate  used  in  the  coding  scheme  to 
specify  conditions  othei  than  tun  codinq.  The  only 
specific  example  studied  hete  is  the  Pass  Mode,  PM, 
code.  Howevet,  in  general,  any  unique  document 
feature  would  be  handled  with  this  qenetal  type  of 
special  coding  parametei. 

The  PASS  code  is  a  code  which  could  be  optionally 
utilized  by  the  encodet  since  the  horizontal  tun 
length  mode  handles  the  same  mfoimation  (see  Fiq.  2). 
Furthermore,  the  run  lenqth  mode  would  sometimes  be 
mote  efficient  than  a  series  of  psss  woids.  The 
adaptive  use  of  the  pass  code  is  thus  a  hardware 
implementation  choice  available  to  the  desionet  of  the 
encodet  with  no  loss  o f  .  int et ope t ab 1 1 1 ty . 
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Fill 

This  parameter  takes  the  foim  of  non-usable  data 
inserted  between  encoded  lines  foi  the  purpose  of 
insui ing  the  minimum  scan  line  time.  The  use  of  a 
variable  length  string  of  zeros  was  retained. 


2,6  Retur  n  to  Cont  i  ol 

This  parametei  indicates  the  end  of  the  data  encoding 
piocedutes  and  the  transition  to  the  control 
ptoceduies.  In  Group  3  equipment,  it  is  synonymous 
with  the  end  of  the  document.  The  use  of  six 
successive  EOL  was  tetained  since  the  mechanism  is 
already  in  place  to  receive  it. 


3.0  CODE  ALGORITHM 

The  code  table  is  shown  in  Fiqute  3.  some  typical 
coding  examples  are  shown  in  Fiqute  4,  the  coding  flow 
diagrams  are  shown  in  Figures  3  and  6,  and  the  code 
algorithm  is  described  below. 

The  compression  alqoiithm  is  comprised  of  two  major 
steps.  The  first  step  is  to  decade  whether  to  encode 
the  current  line  one  dimensional  1 y  or  two 
dimensionally.  The  second  step  is  to  actually  encode 
the  cur  tent  line  . 


The  alqorithm  for  selecting  which  lines  to  encode  one 
dimensionally  will  vary  qreatly  dependinq  on  the 
implementation.  Thus,  it  was  felt  that  the  optimum, 
but  mote  complex,  alqoiithm  should  be  tested.  This 
consists  of  encodinq  each  line  using  both  one  and  two 
dimensional  codinq  then  transmitting  the  code  with  the 
fewest  bits.  This  alaoiithm  is  described  m  the  flow 
diagram  in  Figure  6  with  the  restriction  that  a 
one-dimensional  line  must  be  sent  at  least  every  four 
lines. 

The  two-dimensional  aloorithm  flow  diaqr am  shown  in 
Figure  6  does  not  utilize  the  PASS  mode  code  option. 
This  was  done  to  simplify  the  encodinq  piocess.  The 
alqoiithm  then  is  reduced  to  the  following  logical 
flow. 


Page  B-5  sC8n  the  line  until  a  transition  element, 


■  ■  i 


COM  XIV-'!o.  7*--E 


found.  If  it  can  be  encoded  by  vertical  correlation, 
then  do  so;  if  not,  encode  th-i  accumulated  run  length 
and  the  succeeding  run  length  using  the  standard 
(modified  Huffman)  one -dimens  10 na 1  scheme.  Then 
continue  to  scan  the  line. 

The  following  definitions  are  necessary  in 
understanding  the  encoding  flow  diagrams. 

Sq  >*  Starting  picture  element  on  the  current 

coding  line  which  becomes  the  reference 
picture  element  for  the  beginning  of  a  run. 
An  8q  element  is  always  placed  prior  to  the 
first  picture  element  of  each  run. 

a^:  Changing  picture  element  on  the  current 

coding  line,  next  to  ag.  Clement  a 1 
signifies  the  end  of  the  aga^  run.  An  a-| 
element  is  always  placed  after  the  last 
picture  element  of  each  run. 

82*  Changing  picture  element  on  the  current 

coding  line,  next  to  a^. 

b^:  first  changing  picture  element  whose  color 

is  opposite  to  ag,  and  which  occurs  on  the 
reference  line  after  the  picture  element 
just  upon  ag. 


b1A: 


b1l! 


b1R: 


The  picture  element  on  the  reference  line 
which  is  directly  £bove  aj. 

The  picture  element  on  the  reference  line 
which  is  one  pel  to  the  .left  of  b-|a. 

The  picture  element  on  the  reference  line 
which  is  one  pel  to  the  £ight  of  bia. 

Changing  picture  element  coming  after  b-j  on- 
the  reference  line. 


b  1 L  blA  b  1  R  b1- 
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CASE  3 


CASE  1  :  OPTIONAL  PM  MAY  BE  SENT. 


CASE  2  :  THE  FOUR  TRANSITION  ELEMENT  ON  THE  REFERENCE  LINE  ELIMINATES 

THE  PM  OPTION. 

CASE  3  :  THE  NECESSITY  OF  HORIZONTAL  MODE  RUN  LENGTH  CODING  ELIMINATES 

THE  PM  OPTION. 


Figure  2  -  Explanation  of  the  Optional  PM  Code 
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Date  :  July  1979 


CORRIGENDUM  TO  STUDY  GROUP  XIV  -  CONTRIBUTION  No.  7^ 


SOURCE  :  3M  COMPANY 

TITLE  :  CORRECTION  TO  THE  PROPOSED  TWO-LIMENSIONAL  CODING  ALGORITHM 


1.  Introduction 

In  an  effort  to  complete  Contribution  COM  XIY-No.  74  by  the  March 
deadline,  some  errors  in  the  original  text  were  not  found  during 
proofreading.  The  corrections  for  these  errors  are  listed  below. 

Section  3.0,  3rd  Paragraph,  8th  line:  Change  Figure  6  to  Figure  5. 

Figure  3:  All  of  the  codes  are  inverse  polarity.  The  coding 
should  be: 

MODE 


VMZ 

VMC 

VMU 

HMR 

PM 


CODE 


1 

1  0 
1  1  0 

1  1  1  0  +  MH1 ,  MHZ 
11110 


Figure  6:  The  mnemonic  VMM  means:  Vertical  Mode  Memory. 
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international  Tele-train  an«l  Telej-ltoiio 
Conaultative  Conmit-tse 
(CO ITT) 


Period  1977-1980 


cor.  y.iv-:;o.  6 *-?.* 


Original  t  English 


Question  :  2/XIV 


Date  s  19  January  1979 


STUDY  GROUP  XIV  -  CONTRIBUTION  No.  61 


SOURCE:  IBM  EUROPE 

TITLE:  PROPOSAL  FOR  TVIO-OIMENSIONAL  CODING  SCHEME. 


1.0  Introduction 

Draft  Recommendation  T.4,  generated  at  Study  Group  XIV  meeting  Nov. 
14-18,  1977,  provides  for  the  possible  extension  of  the  (standard) 
one-ditrensional  coding  scheme  to  a  two -dimensional  scheme.  This  was  to 
be  the  subject  of  further  study.  The  contribution  contained  In  the 
following  pages  describes  such  a  two-dimensional  coding  or  compression 
scheme,  based  on  the  one-dimensional  scheme  of  Oraft  Recommendation 
T.4. 

The  proposed  compression  scheme  contains  the  one-dimensional  scheme  as  a 
subset  and  requires  that  the  first  line  of  a  page  be  encoded  In  this 
manner.  When  required,  the  entire  page  may  be  sent  as  the 
one-dimensional  scheme..  A  given  machine  can  readily  operate  with  either 
the  one-  or  two-dimensional  scheme  as  dictated  by  the  capability  of  the 
receiver. 

Taking  advantage  of  the  vertical  correlations  between  scan  lines  as  well 
as  the  horizontal  redundancy  results  In  significant  Improvements  In 
compression.  With  two-dimensional  coding  the  compressed  data  does  not 
double  when  the  vertical  definition  Is  doubled.  This  Improves  the  speed 
at  which  the  optional  higher  vertical  definition  can  be  transmitted. 

For  some  applications  the  higher  quality  with  the  greater  vertical 
definition  may  be  essential. 

Ease  of  hardware  implementation,  compression  efficiency,  speed  of 
processing,  error  sensitivity,  and  future  extendablllty  to  higher 
resolutions  are  all  Important  In  selecting  the  two-dimensional  option. 


'  Ccntributt.cn  rotnrdee  publi^e  oeulement  dans  la  lar.guc  rogue 
(anglais),  sane  traducticna  supplenentaires,  confcrmdnent  aux 
diepositieno  de  la  Resolution  N*  1,  paragraphs  III.4 .d)  adcptde 
par  la  Vie  Assembles  (1976). 

Late  Ccntrib.ition  published  only  in  the  language  received  (English), 
without  further  translations,  in  accordance  with  Resolution  Nc.l, 
paragraph  III.4.d)VIth  Plenary  Assembly  (1976). 

Ccntribucifn  ret.ardada  publicadc  sdlt.  en  el  idiema  en  que  #e 
rec  I  bio  lnglds) ,  sin  ctrao  traduccicnes  de  ccntfornidad  ccn 
16U)  la  Resclucidn  II. *1,  pArrafo  XXX. 4 >d),  VI  Asaablea  Plenaria  (1976). 
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Higher  resolution  and  speed  requirements  should  not  make  the  data 
compression  algorithm  obsolete.  , 

The  following  two-dimensional  data  compression  scheme  is  proposed  as  the 
two-dimensional  option  for  Group  $  machines. 

2.0  Two-Dimensional  Coding 

The  two-dimensional  scheme  i*s  a  line-by-line  coding  method  which 
requires  the  storage  of  one  scan  line  for  use  as  the  history  ’ine  for 
coding  the  next  line.  It  is  a  natural  extension  of  the  one-dimensional 
data  compression  standard.  Those  runs  which  are  highly  vertically 
correlated  are  referenced  to  the  history  line.  The  rest  are  coded  with 
the  Modified  Huffman  Codas  of  the  one-dimensional  scheme.  Improvements 
over  traditional  line-by-line  coding  schemes  are  obtained  by  making 
efficient  use  of  the  code  words  and  bv  allowing  dynamic  interpretation 
of  some  code  words.  The  end  of  line  ( EOL )  code  contains  the  same  unique 
string  of  ten  zeros  to  use  for  resynchronization  purposes  as  the 
one-dimensional  standard.  Fill  zeros  can  be  used  to  obtain  the  minimum 
(permissible)  transmission  time.  This  scheme  can  code  any  length  line. 
Thus,  it  allows  for  future  extensions  of  coding  to  hither  resolutions  or 
wider  pages. 

More  detailed  descriptions  of  the  coding  method  are  given  in  Appendix  1 
along  with  some  coding  examples.  Appendix  2  illustrates  how  the  scanned 
image  can  be  processed  synchronously  by  examining  the  current  scan 
picture  element  (pel)  and  two  pels  above  it  on  the  history  line.  State 
diagrams  are  shown  for  processing  the  scanned  data  in  one  step  and  then 
generating  the  code  words  in  a  second  step  which  can  be  in  process  at 
the  same  time. 

3.0  Compression  Results 

Appendix  3  gives  tables  of  the  compression  achieved  with  the 
two-dimensional  coding  for  three  sets  of  the  eight  CC ITT  test  documents 
at  the  normal  vertical  definition  and  for  two  sets  at  the  higher 
vertical  definition.  The  effect  of  two  treatments  of  the  history  line 
at  the  right  edge  is  also  shown. 

Two-dimensional  coding  schemes  based  on  line-by-line  coding  risk  having 
errors  made  in  one  line  propagate  into  succeeding  lines.  This  error 
propagating  effect  can  be  restricted  by  interleaving  lines  encoded  by 
the  two-dimensional  scheme  with  lines  encoded  by  the  one-dimensional 
scheme.  The  interleaving  can  be  done  systematically,  a  one-dimensional 
line  every  Kth  line;  however,  as  proposed  here,  the  bit  stream  carries 
information  as  to  how  each  line  is  encoded  so  that  the  transmitter  may 
either  inject  one-dimensional  encoding  in  any  desired  manner  or  may  be 
required  to  do  so  periodically. 

For  the  normal  vertical  resolution  the  three  sets  of  documents  have  an 
average  transmission  time  ratio  of  87%  when  one-  and  two-dimensional 
coding  is  alternated  for  successive  scan  lines  as  compared  to  the 
standard  one-dimensional  coding.  At  the  higher  definition  the  average 
transmission  time  ratios  for  two  sets  is  70%  when  only  every  fourth  line 
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Is  coded  one-dimensional 1y.  The  average  ratio  improves  to  65S  for  the 
normal  definition  and  52«  for  the  higher  definition  if  one-dimensional 
coding  is  not  required  periodically. 

4.0  Conclusion 

The  proposed  two-dimensional  extension  of  the  one-dimensional  coding 
standard  gives  significant  improvements  in  comcressior.  over  the 
one-dimensional  scheme'.  Flexibility  in  the  choice  of  the  frecuenc.y  of 
one-dimensional  coding  and  in  the  use  of  EOL's  permits  trade-offs 
between  compression  efficiency  and  protection  against  error  propagation 
to  be  made  according  to  the  local  error  environment. 
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APPENDIX  1 

TWO-DIMENSIONAL  CODING  SCHEME 


The  following  two-dimensional  data  compression  scheme  which  is  an 
extension  of  the  one-dimensional  standard  is  pronosed  as  the  Grout)  3 
machine  two-dimensional  option.  The  same  data  compression  scheme  with  a 
slightly  different  treatment  of  a  document's  right  edoe  can  te  used  for 
error  free  environments. 

1.0  Error  Propagation 

As  mentioned  previously,  for  reasons  of  restricting  error  propaoation, 
one-dimensional  coding  can  be  used  for  the  first  of  every  K  lines.  The 
parameter  K  can  be  chosen  to  fit  the  local  environment.  For  Group  3 
machines  it  is  recommended  that  K  =  2  for  the  normal  vertical  definition 
and  K  *  4  for  the  higher  resolution. 

2.0  One-Dimensional  Coding 

The  first  line  must  be  sent  one-dimensionallv.  The  Modified  Huffman 
Codes  (MHC)  of  the  present  one-dimension* 1  standard  are  used.  They 
depend  upon  the  run  length  count  (CT)  and  whether  the  run  is  black  (B) 
or  white  (W). 

3.0  Two-Dimensional  Coding 

The  two- dimensional  scheme  is  a  line-by-line  coding  retbod  which 
requires  the  storaoe  of  one  scan  line  for  use  as  the  history  line  for 
codinq  the  next  line.  It  is  a  natural  extension  of  the  one-dirersional 
data  comDressior.  standard.  Those  runs  which  are  highly  vertically 
correlated  are  referenced  to  the  history  line.  The  rest  are  coded  with 
the  Modified  Huffman  Codes  of  the  one-dimensional  scheme.  Improvements 
over  traditional  line-by-line  coding  schemes  are  obtained  hv  making 
efficient  use  of  the  code  words  and  by  allowing  dynamic  interpretation 
of  some  code  words.  The  details  of  the  scheme  are  specified  below. 

3.1  Transition  Elements 

A  transition  element  is  usually  defined  as  the  pel  following  a 
change  of  color.  For  purposes  of  illustration  the  following  labels 
will  be  used: 

S  -  Transition  element  which  starts  the  run. 

C  -  Transition  element  which  ends  the  current  run. 

H  -  First  transition  element  on  the  history  line  (if  it 
exists)  which  is  the  same  color  as  C  and  to  the  ripht 
of  S. 

Figure  1  shows  S,  C,  and  H  for  two  runs. 
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If  an  end  of  line  code  is  to  follow  the  data  for  the  current  scan 
line,  a  hvoothetical  C  is  assumed  after  the  riohtmost  nel  to  force 
termination  of  the  run. 

For  Group  3  machines  (in  which  an  EDL  code  follows  the  codinq  of 
every  scan  line)  the  history  line  is  extended  by  two  hyonthetical 
pels.  If  the  final  history  pel  is  white  these  oels  are  a 
black-white  pair.  For  e  final  black  oel  they  will  he  a  white-black 
pair.  This  guarantees  that  there  will  always  be  an  W  for  the  final 
run  because  both  types  of  transition  occur  on  the  right  hand  edge. 


3.2  Vertical  Reference  Coding 

If  C  is  directly  under  H,  the  run  is  coded  as  an  error  of  zero  (EZ) 
in  vertical  alionment.  If  C  is  one  position  to  the  left  of  H,  the 
run  is  identified  as  an  error  of  minus  one  (EM)  when  compared  to 
H.  Similarly  if  C  is  one  pel  to  the  right  of  H,  then  it  is  called 
an  error  of  plus  one  (EP).  Some  examples  are  shown  in  Figure  2A. 

If  C  is  not  within  one  pel  of  H,  then  the  run  is  identified  as  a 
run  length  feature.  See  Fiqure  2B  for  an  example.  In  order  to 
distinguish  the  run  lencth  codes  from  the  vertical  reference  codes, 
a  run  length  prefix  (Pi)  precedes  the  count  encoded  with  MHC 
(Modified  Huffman  Codes). 

The  runs  which  must  be  sent  as  run  length  features  are  not 
independently  distributed  among  the  vertically  aliened  runs.  £bout 
half  of  them  immediately  follow  another  run  length  feature.  Even 
though  EZ  is  most  likely  in  general,  after  a  run  lenath  feature 
another  run  lencth  feature  is  most  probable.  This  strona 
correlation  can  be  used  to  achieve  better  compression  hv  making  the 
code  assignments  for  EZ  and  Rl  conditional  on  the  previous 
feature. 

The  Code  Table  is  listed  below  for  the  PL  prefix  and  the  vertical 
reference  codes. 

Code  Table 

Following  Following 

run  length  tOl,  FZ,  FP  or  FM 


Rt-prefi x  1  01 

EZ  01  1 

EM  001  001 

EP  000  000 

0001  * 


*  Even  numbered  HP's  in  a  series  of  EP's  have  an  extra 
1.  This  extra  1  is  reouired  to  prevent  a  false  FOL  code 
in  the  event  that  several  Eps  in  a  row  are  encountered. 
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3.3  Efficient  Use  of  Code  Words 

An  additional  improvement  in  compression  is  achieved  by  efficient 
use  of  the  code  words.  The  run  length  to  be  coded  is  shortened  by 
not  counting  those  pels  in  the  run  which  are  directly  under  H  or 
one  or  two  pels  to  the  left.  Thus  the  counter  (CT)  will  sometimes 
have  two  or  three  counts  less  than  the  actual  run  length  and  the 
MHC  for  CT  may  be  shprter.  Small  circles  in  Figure  3  show  those 
pels  which  are  not  counted.  If  any  of  those  pels  had  teen  the 
final  pel  in  the  run,  then  vertical  reference  codes  would  have  been 
sent  rather  than  run  length  codes.  The  decoder  in  turn  recognizes 
the  same  pels  and  does  not  decrement  the  counter  for  the  positions 
directly  under  H  or  one  or  two  to  the  left  of  H.  This  usually 
gives  a  systematic  2-33  improvement  in  compression. 

3.4  Extention  To  Lines  Longer  Than  2560  Pels 

Every  time  CT  (run  length  count)  *  2560,  a  carry  code  (same  bit 
pattern  as  the  makeup  code  word  for  2560)  is  generated.  S  is  then 
moved  past  the  last  pel  counted  and  a  new  run  ox  the  same  color  is 
started.  If  this  new  S  is  identical  with  C,  then  a  run  length  of 
2ero  for  the  old  color  is  sent.  Carry  is  the  only  makeup  code 
v/hich  is  not  necessarily  followed  iimiediately  by  a  terminating 
code.  During  two-dimensional  coding  a  carry  can  be  followed  by  a 
vertical  reference  code,  another  run  length  code  including  a  carry, 
or  an  EOL. 

4.0  End  Of  Line  Codes  (EOL) 

EOL  codes  contain  the  same  unique  string  of  at  least  ten  zeros  followed 
by  a  one  that  is  in  the  one-dimensional  EOL.  However,  the  optional 
longer  string  of  at  least  eleven  zeroes  followed  by  a  1  is  always  used. 

A  tag  bit  is  added  to  indicate  which  type  of  coding  will  follow.  A  tag 
of  0  indicates  one-dimensional  and  a  tag  of  1  specifies  two-dimensional 
coding. 

During  two-dimensional  coding  a  run  length  prefix  must  precede  the  EOL 
to  distinguish  it  from  EP's.  A  string  of  EP's  is  prevented  from 
generating  eleven  or  more  zeros  in  a  row  by  appending  a  1  to  the  even 
numbered  EP’s. 

End  of  line  codes  are  reouired  to  precede  the  first  line  (which  must  be 
coded  one-dimensionally)  and  must  also  occur  whenever  a  switch  is  being 
made  between  one-  and  two-dimensional  coding.  In  addition,  for  Proup  3 
machines  it  is  expected  that  EOL's  will  be  required  on  every  line. 

After  an  EOL  the  first  code  word  represents  a  white  run.  If  the  first 
pel  is  black,  a  white  run  length  of  zero  must  be  sent  to  specify  the 
color  change.  When  two-dimensionally  coding,  an  EZ  is  usually  more 
likely  than  a  run  length  code;  so  it  is  given  the  shorter  code  word 
after  an  EOL. 
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5.0  Fill 


Fill  zeros  can  be  used  to,  obtain  the  minimum  (permissible)  transmission 
time  per  line.  The  extra1,  zeros  are  inserted  into  the  string  of  zeros  in 
the  EOL  codes.  An  EOL  must  be  used  if  fill  is  needed. 


6.0  Return  To  Control  (RTC) 


The  return  to  control  sequence  is  maintained  as  six  end  of  line  codes. 
Each  EOL  should  indicate  one-dimensional  coding  to  follow.'- 


7.0  Error  Free  Environments 


In  error  free  environments  or  where  retransmission  is  possible,  EOL  * s 
may  add  unnecessary  extra  bits.  The  coding  scheme  allows  for 
considering  the  scanned  image  as  one  continuous  bit  stream  in  which  the 
rightmost  pel  on  a  line  is  followed  irmiediately  by  the  leftmost  pel  on 
the  next  scan  line.  Figure  4  illustrates  the  sequence  of  pels.  While 
this  wraparound  capability  may  not  be  desired  in  Group  3  apparatus,  the 
capability  may  be  very  useful  in  the  proposed  Group  4  apparatus. 


The  f'HCs  require  knowledge  of  the  color  of  the  run  for  correct 
decoding.  For  the  one-dimensional  coding  scheme  every  line  starts  with 
a  white  code  word.  (A  run  length  of  zero  for  the  white  run  is  sent  if 
the  line  actually  starts  with  a  black  pel.)  EOL 1 s  on  every  line  make  it 
possible  for  the  decoder  to  identify  the  starts  of  new  lines  without 
having  to  first  complete  reconstruction  of  the  last  scan  line.  Without 
the  Ed’s  it  is  possible  for  two  white  code  words  to  occur  together  in 
the  compressed  data  stream.  Parallel  (and  independent)  processing  of 
the  compressed  data  and  reconstruction  of  the  image  is  severely 
restricted  if  the  color  of  the  next  code  is  dependent  upon  whether  the 
preceding  code  word  represented  the  final  run  on  a  line.  So  in 
environments  where  the  EOL's  are  not  used,  the  wraparound  technique 
guarantees  that  the  color  of  the  code  words  alternates  (with  the 
exception  of  the  carry  feature  which  is  known  to  be  followed  by  the  same 
color).  This  allows  coding  of  the  compressed  data  into  features  to  be 
independent  of  the  position  of  the  runs  on  the  scan  lines. 


Figure  5  shows  determination  of  the  features' using  both,  techniques. 

The  hypothetical  history  pels  are  dotted  in  Figure  5A.  The  small 
circles  show  which  pels  are  not  counted.  The  features  are  explained  in 
Appendix  2.  In  both  cases  the  first  line  is  coded  one-dimensionally  and 
ended  with  an  EOL.  In  Figure  5A  EOL's  are  required  for  each  line  while 
in  Figure  5B  EOL's  are  only  used  to  switch  coding  schemes. 
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APPENDIX  2 
STATE  DIAGRAMS 


The  process  of  determining  the  code  words  to  represent  the  scanned  data 
can  be  illustrated  by  state  diaorar.s  in  two  steps.  The  first  steo 
synchronously  uses  three  tits  (one  pel  on  the  current  line  and  two  atove 
it  on  the  history  line)  to  determine  the  next  state.  Every  time  a 
transition  element  is  found,  a  feature  is  output  to  the  second  step. 

The  more  common  features  are  EZ,  EP,  EM,  ^LH,  PIB,  CPLW,  and  0PL6.  (A 
‘ D ’  prefix  on  features  and  states  indicates  ore-dimensional  codino.) 
These  features  are  used  as  the  input  to  the  second  step.  cince  the 
second  step  remembers  the  last  code  word  type,  the  correct  hit  patterns 
can  be  generated  for  any  seouence  of  features. 

1.0  Inputs  to  Encoder  Step  1 

Three  bits  of  data  are  needed  to  determine  the  next  state.  They  are  the 
current  pel  (CP),  the  history  Del  (HP)  which  is  immediately  above  rp  on 
the  history  line,  and  the  history  pel  look  ahead  (HPLA)  which  is  one  nel 
to  the  right  of  HP.  Figure  6  shows  the  positions  of  CP,  HP,  and  HPLA  as 
CP  moves  from  the  one  scan  line  to  the  i ’xt.  In  Fioure  6A  CP  is  the 
third  position  from  the  end  of  the  secon.j  line.  Above  it  is  HP  and 
above  to  the  right  HPlA.  In  Fig.  6B  the  next  Del  is  beino  processed. 

For  Fig.  6C  CP  is  now  the  final  pel  in  the  lin^.  The  HP  is  still  atove 
it.  Since  hypothetical  history  transitions  (t)  are  to  be  introduced  *or 
Group  3  machines,  HPLAt  is  a  hypothetical  pel  to  the  right  of  HP,  The 
hypothetical  pels  are  shown  as  dotted  boxes.  If  instead  the  historv  is 
to  be  treated  as  a  continuous  (c)  stream,  HPLAc  has  moved  to  the  next 
scan  line  (which  is  the.  same  scan  line  that  the  CP  is  on).  Figure  6D 
shows  HPt,  HPLAt,  HPc ,  and  HPLAc  if  the  run  is  forced  to  terminate  for 
an  EOL.  The  HPc  and  HPLAc  are  the  first  two  pels  on  the  scan  line  beino 
completed.  The  CP  for  generating  a  hypothetical  transition  to  terminate 
the  run  is  also  shown.  Figure  6E  shows  the  condition  when  the  new  scan 
line,  namely  the  third  scan  line,  is  started  and  Figure  6F  shows 
processing  the  next  pel. 

2.0  State  Diagram  for  Encoder  Step  1 

The  state  diagram  for  the  Encoder  Step  1  is  illustrated  in  Figure  7. 

The  three  input  bits  are  CP,  wp,  and  HPLA  respectively.  A  white  pel  is 
specified  by  a  'O'  and  a  black  pel  by  a  ’ I  * .  Dashes  in  the  state 
diagram  Indicate  ‘don't  care'  bits  which  can  be  either  a  0  or  1. 
Trianqles  indicate  when  a  different  path  will  be  taker  according  to 
whether  CT  *  2560  or  CT  <  P 560.  The  sinale  asterisk  (*)  indicates  when 
to  increment  the  counter.  A  double  asterisk  (**)  desinnates  that  the 
counter  is  reset  to  1.  States  are  shown  in  circles  while  the  outputs 
(which  may  have  the  same  name)  are  in  boxes. 

As  long  as  CP  is  white,  the  next  state  will  be  one  of  the  white  states 
on  the  left  side  of  the  state  diagrams  for  Step  1.  For  a  black  CP,  the 
next  states  are  or,  the  right  side  of  the  diagrams.  Each  time  the  color 
changes  or  CT  *  2560,  some  output  is  aenerated  for  use  in  Step  2. 
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2.1  One-Oimensional  Coding 

Processing  of  the  scanned  pel  starts  with  one-dimensional  coding  in 
the  START  1-0  state  in  Figure  7A.  A  white  pel  causes  a  transition 
to  the  one-dimensional  run  length  white  (DRLK)  state.  As  long  as 
CP  remains  white,  the  counter  will  be  incremented  and  the  state 
stays  the  same.  A  change  of  CP  to  black  outputs  a  cne-dimensional 
run  length  white  feature  (DRLW)  and  causes  a  transition  to  the 
one-dimensional  run  length  black  state  (DRLB).  This  process 
continues  until  the  end  of  the  line.  If  an  end  of  line  code  is 
desired,  the  rur  is  forced  to  terminate  and  the  final  run  length 
feature  is  followed  by  an  end  of  line  feature  which  specifies 
continuing  one-dimensional  coding  (DE0L1)  or  switching  to 
two-dimensional  coding  (DE0L2).  (The  end  of  line  sequence  is  not 
shown  in  the  state  diagrams.) 

The  diagram  also  shows  what  happens  v;hen  the  run  length  counter 
reaches  2560  without  a  transition.  In  that  case  a  one-dimensional 
carry  feature  (DCRY)  is  output  and  a  new  run  of  the  same  color  is 
started. 

After  a  DE0L2  (which  specifies  two-dimensional  encoding)  the  START 
2-0  state  is  entered  (See  Figure  78). 

2.2  Two  Dimensional  Coding 

If  CP  is  black  in  the  START  2-0  state,  then  a  run  length  zero  white 
(RLOW)  feature  is  output  in  order  to  indicate  the  color  change. 

For  white  runs,  the  first  time  HP  is  white  and  HPIA  is  black 
locates  H.  For  black  runs,  the  significant  combination  is  a  black 
HP  and  a  white  HPIA.  Once  H  has  been  found  it  is  no  longer 
necessary  to  consider  the  history  line  until  C  occurs. 

If  H  does  not  occur  immediately  after  S,  then  the  run  will  begin  in 
the  start  v.'hite  (SW)  state  or  start  black  (SB)  state  and  will 
continue  in  those  states  until  either  H  is  found  or  the  run  length 
terminates.  It  is  possible,  if  no  EOL  was  used  on  the  last  line, 
to  get  to  a  count  of  2560  before  C.  In  that  case  a  carry  is  sent 
out  (CRY)  and  a  new  run  cf  the  same  color  started.  If  C  occurs 
just  before  H,  then  an  EM  codes  that  particular  run.  Otherwise  a 
run  length  white  (RLW)  or  run  length  black  (RLB)  is  sent.  When  H 
is  reached  on  the  history  line,  then  the  next  state  is  the  white 
EZW  or  black  EZB  state.  If  the  run  continues,  it  goes  to  the  EP 
(EPW  or  EP8)  state  and  finally  Into  the  run  length  (RLW  or  RLB) 
state.  If  a  termination  occurs  in  the  EZW  or  EZB  states,  then  the 
feature  will  be  an  EZ.  If  It  happens  one  pel  later  while  in  the 
EPW  or  EPB  states,  the  output  will  be  EP. 

From  the  run  length  states  (RLW  and  RLB)  the  output  is  usually  a 
run  length  feature.  However  if  the  counter  reaches  2560,  a  carry 
(CRY)  feature  is  generated.  After  outputting  CRY  a  new  run  is 
started.  If  the  run  should  be  exactly  2560,  then  a  carry  must  be 
followed  by  a  rur.  length  of  zero  (CROW  and  CRCB). 
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It  Is  necessary  In  a  two-dimensional  codinq  scheme  to  have  history 
data  inat  would  be  the  same  as  that  seen  in  the  decoder  so  that 
interpretation  of  the  code  is  independent  of  the  edqe  of  the 
Image.  Therefore  when  run  lengths  are  forced  to  terminate  at  the 
end  of  the  scan  line  so  that  an  £HL  can  be  inserted,  for  Group  3 
machines  the  HP  and  HPLA  are  hypothetical  pels.  uhen  EOL’.,  are  not 
required  on  every  line,  the  HP  and  HPLA  used  are  the  same  as  for 
the  first  pel  on  the  next  line. 

The  EHL  for  use  at  the  end  of  two -dimensionally  coded  lines  is 
either  an  EOtl  which  soecifies  one-dimensional  codinq  next  or  an 
E0L2  which  soecifies  ccntinuinq  with  two-dimensional  coding.  The 
run  length  prefix  precedes  the  strinq  of  at  least  eleven  zeros 
followed  by  a  1.  The  tag  bit  is  a  0  for  F0L1  and  a  1  for  FOL2. 

2.3  Peturn  to  Control 

Six  EOl's  are  generated  for  the  return  to  control  seouence.  If  the 
final  line  were  two-dimensional lv  encoded,  the  features  would  be 
E0L1,  DE0L1 ,  DE0L1,  DE0L1,  DEOLl',  and  DE0L1.  For  one-dimensional 
coding  six  DECLl's  are  recuired. 


3.0  Examples  of  Features 

Figure  5  gives  some  examples  of  features  which  would  have  been 
determined  by  Step  1.  Circles  indicate  pels  which  are  not  counted.  The 
dotted  pels  In  Figure  5A  are  the  hypothetical  history  nels.  Fioure  5B 
shows  how  the  wraoaround  decreases  the  number  of  features  needed  to 
characterize  the  image.- 

4.0  State  Diagram  for  Encoder  Steo  2 

The  state  diagram  for  the  second  step  of  the  coding  process  which 
translates  the  features  into  code  words  is  shown  In  Figures  3A,  SB,  and 
8C.  As  defined  below  the  states  PR,  PE,  and  PEP  indicate  the  previous 
type  of  code  word.  If  the  previous  code  was  a  run  lenoth  code  (which 
includes  the  carry),  Step  2  will  be  in  the  PR  state.  If  it  was  an  FZ, 
EM,  or  end  of  line  code,  it  will  always  be  in  the  PE  state,  following 
an  EP  there  are  two  possible  states,  either  PE  or  PEP  dcpendina  uDon 
whether  the  EP  was  the  even  or  odd  numnered  feature  in  the  seouence  of 
EPs.  The  input  to  Step  2  is  a  feature  which  has  been  output  from  Step 
1. 
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APPENDIX  3 
COMPRESSION  RESULTS 


Compression  results  are  reported  in  Tables  1  to  6  for  three  different 
scannings  of  the  eight  CCITT  test  documents.  The  A  set  v/a s  used  for  the 
Graphics  Coding  Contest  of  the  1976  Picture  Coding  Symposium  (Asilomar, 
California,  January  -1976).  The  documents  v/ere  digitized  for  1728  pels 
per  line  by  2128  lines,  nominally  8  pels/mm  x  8  lines/mm  (8  x  8).  The 
sets  B  and  C  were  obtained  from  the  French  PTT.  The  5  set  was  digitized 
at  1680  pels  per  line  by  2376  lines  (8  x  8).  The  C  set  was  scanned  with 
1680  pels  per  line  by  1180  lines,  nominally  8x4.  The  two  higher 
vertical  definition  sets  were  used  to  simulate  8x4  definition  by 
compressing  only  the  even  numbered  lines.  Table  1  summarizes  the 
specifications  for  the  images. 

Table  2  lists  the  results  as  average  transmission  times  per  document  set 
for  one-dimensional  coding  at  4800  bits/sec.  The  EOL  used  for  the  CCITT 
standard  was  eleven  bits  (C0C000C00G1).  For  K  e  1  the  EOL  on  each  line 
was  thirteen  tits  (C00000000001C).  The  5  msec  and  10  msec  results 
include  sufficient  fill  bits  to  obtain  those  minimum  transmission  times 
per  line  (24  bits  and  48  bits  respectively).  The  average  transmission 
times  can  be  converted  into  average  compressor  factors  by  dividing  the 
total  pels  by  4800  x  time. 

The  label  WRAP  indicates  that  the  images  were  treated  as  a  continuous 
bit  stream  with  wraparound.  Runs  are  terminated  only  if  an  EOL  had  to 
be  inserted  into  the  compressed  data  stream  in  order  to  change  coding 
from  the  one-dimensional  to  the  two-dimensional  or  from  the 
two-dimensional  to  the  one-dimensional  schemes.  The  EOL's  before  the 
first  line  (which  is  coded  one-dimensionally)  and  the  P.TC  seouence  are 
included.  For  K  =  1  there  is  no  switching;  so  these  are  the  on!) 

EOL's.  For  K  =  2  there  will  be  an  EOL  after  every  line.  For  K  >  2  an 
EOL  will  precede  and  follow  each  one-dimensionally  coded  line.  No  fill 
bits  are  used  in  wraparound  results. 

The  labels  NO  EOL,  5  msec,  and  10  msec  always  indicate  that  the  final 
run  on  each  line  terminated  with  a  hypothetical  C  transition  element. 

For  NO  EOL  the  fill  bits  and  EOL  have  been  removed. 

Removing  the  EOL's  and  fill  needed  for  5  msec  saves  about  5/.'  for 
one-dimensional  coding.  However,  the  wraparound  technique  saves  another 
because  the  margins  on  the  right  and  left  edges  become  one  long  run 
instead  of  two. 

The  average  transmission  times  are  listed  in  Table  3  for  the  case  in 
which  only  the  first  line  is  coded  one-dimensionally  and  the  rest  of  the 
image  is  coded  two  dimensionally  (K  *  infinity).  The  results  obtained, 
by  terminating  the  history  line  with  hypothetical  pels  on  the  right  edge 
are  labeled  TRAMS.  (About  905;  of  the  time  this  introduces  a 
hypothetical  H  transition  element.)  The  history  line  can  also  be 
treated  as  a  continuous  bit  stream  (CONT.)  even  though  an  EOL  is 
required  on  every  line.  Having  a  continuous  history  rather  than 
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transitions  on  the  right  edge  gives  atout  10*  less  compression  tor  the 
NO  ECl  case,  but  less  fill  is  needed,  so  there  is  only  about  a  5« 
difference  for  the  5  msec  case.  If  EOL  codes  are  rot  needed,  then 
wraparound  (WRAP)  can  give  compression  within  2"  of  NO  ECL  with 
hypothetical  history  transitions  (TRANS.)  (In  addition  to  the  EOL's  and 
fill  bits,  the  EOL  run  length  prefix  and  th*  extra  l's  in  a  sequence  of 
EP's  are  not  included  in  the  two-dimensional  NO  EOL  results.) 

Tables  4  and  5  show  the  performance  for  Group  3  machines  for  K  *  2  and  K 
*  4.  The  10msec  CONT.  columns  for  K  •  2  and  K  *  4  were  obtained  by 
interpolation.  The  rest  of  the  entries  came  from  simulations  of  the 
compression  or  actual  encodings  of  the  images. 

Table  6  collects  together  the  average  transmissions  times  for  k  *  2  and 
k  *  4  (TRANS.)  for  the  proposed  scheme  for  Group  3  machines  and  the 
results  using  wraparound  for  k  «  infinity  along  with  the  current  CCITT 
one-dimensional  coding  scheme.  The  ratios  of  each  two-dimensional 
coding  scheme  to  the  onr-dim.ensional  scheme  are  also  tabulated.  The 
average  transmission  time  ratio  for  the  normal  definition  (K  »  2.TRANS.) 
is  S7X.  For  the  higher  definition  this  ratio  is  70S  (K  -4JRANS.). 
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Table 

l-  Document  Description 
^9bt  CCIiT  Test  Documents 

in  Each  Set 

00C. 

SET 

NON  INAL 

definition 

LINES 

ooc. 

PELS/ 

LINE 

TOTAL 

PELS 

AS 

88 

A4 

64 

C4 

8  x  8 

8x8 

8x4 

8x4 

8x4 

2126 

2376 

1064 

1188 

1188 

1728 

1630 

3728 

1680 

1680 

3677184 

3991680 

1838532 

1995840 

1995840 

SOURCE 

Graphics  Codirc  Contest 
French  PTT  8  x  £ 

Half  of  AS  lines 
Half  of  88  lines 
French  PTT  6  x  4 


Table  2.  One-Dimensional  Coding 


Average  Transmi 
(4800  bits/sec) 


ssion  Time  (Seconds) 


DOC. 

SET 

A8 

88 

A4 

S4 

C4 


NO  EOL 

CCITT  1-D 

5msec  10msec 

5msec 

K  -  1 
10msec 

WRAP 

89.0 

IC7.1 

44.5 

53.5 

51.6 

93.9 

112.6 

47.0 

56.3 

54.4 

95.8 
115.2 

48.0 

57.6 

55.9 

94.8 
113.5 
47.4 

55.8 
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Figure  1A.  Transition  elements  for  The  white  run. 


Figure  IB.  Transition  elements  for  the  next  (black)  run. 
Figure  1.  Transition  elements 


Figure  2A.  Examples  of  Vertical  Reference  Features. 


History  Line 
Current  Line 


Figure  2B.  Example  with  a  Run  Length  Feature. 

Figure  2.  Features 
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TITLE  :  PROPOSAL  FOR  AN  OPTIONAL  TWO-DIMENSIONAL  CODING  SYSTEM  FOR  GROUP  3  APPARATUS 


I .  Bockground 

At  the  November,  1977  meeting  of  CCITT  Study  Croup  XIV,  an  ogreement  was  reached 
on  all  of  the  standard  parameters  required  for  a  Group  3  machine.  Additionally,  o 
number  of  optional  parameters  were  defined.  These  agreements  are  oil  recorded  in  COM 
XIV-No.  25,  pages  33  to  39  in  draft  Recommendation  T.4.  Included  in  Recommendation 
T.<t  is  the  slandard  one-dimensional  coding  scheme  to  be  incorporated  in  all  "standard" 
Group  3  apparatus.  If  is  further  stated  in  Recommendation  T.4  that  a  two-dimensional 
coding  scheme,  offering  enhanced  operation,  may  be  provided  as  on  option  within  Group 
3  equipment  and  should  be  a  natural  extension  of  the  standard  scheme.  This  two- 
dimensional  coding  system  is  for  further  study  and  is  the  subject  of  this  contribution. 

At  the  December,  1978  meeting  of  Study  Group  XIV,  o  significant  amount  of  discussion 
centered  around  the  criteria  for  choosing  the  two-dimensional  optional  code.  Il  was 
finally  agreed  that  the  most  significant  criteria  for  this  selection  should  include: 

•  Compression  factor 

•  Error  susceptibility 

•  Complexity  ond  implementation  cost 

•  Potent  status 

as  well  as  other  desirable  factors  based  on  the  extension  of  the  stondard  code  ond  the 
extendability  to  future  codes,  resolutions,  etc. 

Based  on  a  study  of  those  proposals  presently  contributed  to  Study  Group  XIV,  Xerox 
believes  that  the  compression  foctors  and  error  susceptibility  (for  a  given  value  of  the 
periodicity  of  foiling  bock  to  one-dimensionol  coding,  K)  of  the  codes  under  consideration 
are  all  quite  similar.  Therefore,  strong  consideration  should  be  given  to  such  criterio  os 
ease  of  implementation  ond  potent  status. 
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Although  there  i«  no  recson  to  limit  the  u  1  i i i 2 a t i on  of  o  rwc-dimensiono!  coding  scheme 
to  those  opporotus  incorporating  other  optional  features,  it  should  be  recognized  that  the 
applicability  of  such  coding  schemes  is  best  matched  to  machines  utilizing  the  high 
definition  (7.7  Ipmm)  and  foster  scan  time  options.  As  this  appears  1o  be  the  prime 
application,  the  results  of  this  contribution  relate  to  such  a  case. 

This  paper  is  intended  to  propose  an  option  for  Group  3  equipment.  As  such,  the 
utilization  of  this  coding  scheme  in  Group  U  apparatus  is  not  stressed.  However,  one 
familiar  with  the  concepts  agreed  1o  for  Group  4  equipment  will  quickly  understand  that 
with  minor  modifications  (suet:  os  EOL  ond  K)  this  technique  could  easily  be  used  for 
Group  equipment. 


Discussions 

The  two-dimensional  encoding  approach  proposed  herein  is  based  on  a  seven  element 
area  predictor.  This  predictor  is  placed  between  the  source  of  the  video  information 
(scanner)  and  the  run  length  counter.  The  predictor  examines  tne  picture  elements  near 
the  pel  to  be  predicted  and  generates  a  predicted  I  or  0  (black  or  white)  based  on  the 
statistical  knowledge  of  a  large  number  of  documents.  This  predicted  value  is  then 
compared  with  the  octual  pel  to  determine  if  the  prediction  was  correct.  Correct 
predictions  generate  a  W  symbol  and  erroneous  predictions  generate  o  B  symbol.  These  W 
ond  B  symbols  are  then  run  length  encoded  by  o  Huffman  approach.  jT 

Predictor 

A  simple  block  diagram  of  a  one-dimension  coder  is  shown  in  Figure  I.  Figure  2  shows  ' 

that  by  selectively  inserting  a  "predictor"  block  between  the  dato  source  ond  the  run 

length  counter,  the  characteristics  of  the  data  stream  ore  modified.  If  the  prediction  is 

correct,  o  "W"  is  presented  at  the  output  of  the  exclusive  OR  element  and  the  run  length 

being  counted  is  extended.  If  an  incorrect  prediction  is  mode,  the  Huffman  encoder  will 

treat  the  predicted  signal  os  a  change  of  color. 

The  predicted  value  is  determined  by  a  statistical  analysis  of  the  document  dato  once  a 
particular  configuration  is  chosen.  That  is,  the  predicted  values  are  arrived  at  in 
essentially  the  same  manner  as  the  choice  of  the  codes  in  a  Huffman  look-up  table.  If, 
for  example,  an  analysis  of  documents  shows  that  any  particular  pixel  is  neorly  always 
the  same  color  as  its  immediately  preceding  pixel,  then  that  would  define  the  prediction 
algorithm.  It  con  be  shown  that  the  percent  improvement  in  compression  ratio  is  nearly 
linearly  related  to  the  improvement  in  prediction  accuracy. 

The  seven  element  predictor  has  been  chosen  due  to  its  high  compression  efficiency  ond 
simplicity  of  implementation.  It  performs  within  a  few  percent  of  predictors  containing 
many  more  elements  over  three  lines  yet  require  only  a  froclion  of  the  storage  necessary 
for  ihese  more  complex  configurations.  The  seven  element  predictor  does  offer 
substantial  improvement  over  a  very  simple  one-element  predictor. 

Code  Table 

The  cod>ng  table  structure  has  been  chosen  to  be  identical  to  that  of  the  standard  one¬ 
dimensional  code  table,  that  is  run  lengths  from  0  to  63  (Terminating  Code)  are  uniquely 
and  individually  encoded  and  multiples  of  6A  (Moke  Up  Code)  ore  separately  encoded.  All 
terminating  runs  include  the  ”8"  element,  as  the  run  would  only  stop  if  there  were  o 
prediction  error.  Thus,  the  incorrect  predictions  are  "folded  in"  to  the  run  length 
statistics.  Only  a  single  code  tabis  is  required,  as  the  probability  of  many  successive 
'B's"  is  extremely  low.  D-2 
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error  Protection 


Protection  ogoinst  transmission  errors  has  bren  provided  in  several  ways.  Firstly,  as  in 
^  other  proposals  submitted  to  date,  a  fallback  to  a  one-dimensional  approoch  is 

?  recommended  every  K  lines.  Any  value  of  K  may  be  chosen  with  the  proposed  coding 

scheme.  The  results  submitted  in  this  contribution  use  K=4  to  maintain  consistency  with 
(  other  contributions.  The  fallback  to  one-dimensional  citing  may  be  accomplished  either 

by  using  the  standard  one-dimensional  code  every  K  line  or  by  "zeroing  out"  the 
previous  reference  line  of  the  predictor.  The  results  contained  herein  utilize  the  latter 
approach.  Further  study  is  being  carried  out  to  determine  the  relative  merits  of  each 
method. 

As  a  further  consideration  for  error  protection,  every  pel  of  the  scan  line  is  encoded  and 
a  unique  end-of-!ine  code  is  transmitted  for  each  line.  This  allows  the  receiving 
apparatus  to  fully  decode  the  information  and  determine  if  the  full  1728  elements  have 
been  received.  Some  gains  in  compression  efficiency  could  be  gained  by  sending  an  EOL 
code  immediately  following  the  last  B  symbol  of  the  line,  however,  this  would  negate  the 
possibility  of  error  detections. 

A  short  (5  bit)  EOL  is  used  whenever  the  two-dimensional  approach  is  used  and  the 
standard  long  (II  O’s  ♦  I)  is  used  every  KTn  line  when  the  system  reverts  back  ty^one- 
dimensional  coding.  This  allows  the  receiver  to  completely  resynchronize  every  K  n  line 
if  errors  existed  in  the  transmission.  Since  the  Huffman  codes  will  resynchronize  by 
themselves  following  an  error  and  also  because  any  error  in  a  line  obliterates  that  line 
fey,  all  practical  purposes,  full  system  forced  resynchronization  more  often  than  every 
Kin  line  is  deemed  unnecessary. 

FILL 

As  is  the  case  vith  the  one-dimensional  standard,  a  need  exists  to  be  able  to  insert  a 
FILL  code  whent'er  devices  built  to  different  specifications  are  interoperating.  This 
proposal  recommends  inserting  such  FILL  code  every  K,n  line  when  the  long  EOL  is  used. 
Thus,  if  K=4  and  the  T.30  protocol  signals  a  5  millisecond  per  line  capability,  this  can  be 
interpreted  at  the  sender  as  4x5=20  milliseconds  every  K  lines.  If  the  compressed  data 
plus  the  short  EOL  codes  use  less  than  this,  FILL  will  be  added  at  the  beginning  of  the 
long  EOL,  preceding  the  one-dimensionally  encoded  line  of  data. 

Patent  Status 

To  date,  a  thorough  patent  search  has  not  been  completed  to  determine  if  the  material 
contained  in  this  proposal  is  covered  by  any  existing  patents.  However,  this  material  is 
believed  to  be  free  of  any  encumbering  patents  which  would  limit  its  ovoilability.  Xerox 
believes  in  the  importance  of  the  universal  availability  of  the  technologies  standardized 
by  C.C.l.T.T.  ond  will  pursue,  via  a  patent  search,  the  answer  to  this  question. 

Performance 

A  full  discussion  of  the  performance  of  the  approoch  proposed  herein  will  not  be  given  in 
this  contribution.  It  will  be  the  subject  of  a  companion  contribution  to  be  sumbitted  in 
the  near  future.  However,  in  order  for  the  readers  to  gain  0  general  understanding  of  the 
compression  factor  which  is  capable  of  being  achieved  by  this  approach  the  following 
data  is  presented. 

The  average  compression  of  all  eight  C.C.l.T.T.  test  documents  at  1728  pels  per  line  and 
7.7  lines  per  millimeter  is  1 1.57.  This  data  is  for  a  system  with  K=4  ond  includes  EOL 
codes  on  each  line.  No  FILL  has  been  inserted.  At  a  4800  bps  tronsmission  rate,  this 
yields  an  average  transmission  time  of  66  seconds,  when  operating  in  the  optional  high 
resolution  mode.  Compression  factors  (times)  for  the  eight  documents  range  from  5.5 
( 1 40  seconds)  to  24  (30  seconds).  D-U 
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3.  Proposal 

The  structure  of  the  proposed  predictor  is  shown  in  Figure  3.  The  prediction  table  is 
exhibited  in  Table  I.  The  proposed  Hoffman  code  table  to  run  length  encoded  the  W  or  B 
output  of  the  predictor  is  given  in  Table  2. 


Figure  3  *  Seven  element  predictor 
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4.  Summary 

c^ileriQ^eMo^i^bj^'cXJ^T^^Stud^Gfot^XIV^  o't  ^T'"'  l*  ,e"  ,0  m«<  011  of  the 
Corporation  recommends  that  this  easy-to-imr.1*  '♦*  ^®ce^er  1978  meeting.  Xerox 

adopted  by  Study  Croup  XIV  os  the  optional  two^imenl1  °nd|  effective  coding  method  be 
into  Recommendation  T.4.  P  °-aimensional  scheme  ond  be  incorporated 
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t.  INTRODUCTION 


Working  Farty  2  at  the  Study  Group  XIV  meeting  of 
December  11  to  15,  1978  set  forth  a  tine  table  for  submis¬ 
sion,  as  veil  as  uniform  selection  criteria  for  evaluation 
of  tvo-ditrensional  facsimile  coding  schenes  proposed  for 
Group  3  machines.  It  is  widely  recognized  that  a  two- 
dimensional  cede  is  necessary  to  inpreve  the  compression 
performance  of  a  Group  3  machine.  In  addition,  a  two- 
dimensional  scheme  will  offer  increased  coding  efficiencies 
in  new  classes  of  terminals  which  operate  in  error-free  code 
environments,  where  the  two-dinersicnal  algorithm  can  be  ap¬ 
plied  throughout  the  entire  image  without  restart. 

The  proposed  algorithm,  termed  frank  code  £1],  is  a 
simple  extension  of  the  one-dimensional  Modified  Huffman 
Code.  This  code  gives  superior  coding  efficiency  when 
operated  either  in  a  Group  3  terminal  or  in  an  error-free 
environment.  It  has  the  advantage  that  it  is  based  on 
statistically  relevant  image  features.  There  is  strong  in¬ 
dication  that  new,  more  efficient  f eature-based  algorithms 
can  be  designed  in  the  future  using  this  code  as  their  base. 
In  addition,  there  are  simple  ways  to  extend  this  code 
linguistically  to  incorporate  new  functions  such  as  mul¬ 
tiplexing  non-graphics  data  into  the  code  stream,  or  coding 
gray  scale  or  color  images. 

The  Frank  coding  algorithm  may  be  implemented  simply  in 
a  wide  variety  of  ways.  It  can  be  segmented  into  several 
independent  processes  which  can  lead  to  efficient  system 
designs.  This  code  has  been  implemented  in  a  variety  of 
systems  and  has  been  found  to  be  a  highly  efficient  and 
reliable  algorithm.  Based  on  these  factors  and  others 
presented  in  the  body  of  this  prcpcsal,  ATGT  recommends  that 
Frank  code  be  adopted  as  a  standard  two-dimensional  code  for 
use  in  facsimile  terminals. 


2.  lwq--.pt Hm.mk.ssBi  jm 


r 


2.1  QSEBvm-fir.cqpiM  scheme 


Frank  coding  is  a  two-dimensional,  feature-oriented, 
statistically-based  coding  scheme  with  high  coding  efficien¬ 
cy,  small  memory  requirements,  and  simple  logic.  It  is  a 
form  of  line-tc-line  differential  rur  length  ending,  with 
the  added  distinction  that  it  identifies  and  codes  "blobs", 
which  are  collections  of  geometrically  associated  picture 
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elements  (pels)  of  like  brightness  level.  We  assume  blacx 
to  be  the  level  encoded. 

In  brief,  the  coding  structure  is  as  follows.  A  is  a 
s  set  of  black  runs  on  successive  inage  lines  such  tr.at  two 
conditions  aie  satisfied.  First,  a  tlofc  tray  contain  no  mote 
than  cne  run  per  image  line.  -Second,  given  any  two  runs  on 
successive  lines  in  a  blob,  their  left  ends  are  no  nore  tnan 
three  pels  apart,  and  their  right  ends  are  no  more  than 
three  pels  apart.  The  parameters  codea  for  a  bleb  are  (a) 
the  position  of  the  blob  within  the  itrage,  (b)  the  length 
cf  the  topmost  or  head  run,  (c)  the  way  in  which  the  left 
ends  and  the  right  ends  connect  for  each  two  successive  runs 
in  a  blob,  and  (d)  in  some  cases  an  indication  of  the  rinal 
or  end  run  ccaea.  The  CCITT  stanoarc  one-dimensional  wnite- 
run-length  Modified  Huffman  codebook  is  used  to  coat  tr.e 
blob  position  parameter,  simultaneously  providing  downward 
compatibility  with  earlier  one-dimensional  code  machines. 

A  separate  ccdebook  includes  entries  for  93  blob  parameters . 

Behavior  of  the  blob  parameters  has  proved  to  be 
statistically  very  stable  over  a  large  ensemble  of  images. 
This  consistency  results  from  the  close  relation  of  the 
blobs  to  micro-structures  witnir  an  image  which  forn.  a  com¬ 
mon  basis  of  facsimile  documents.  This  relation  as  Keyed 
to  the  restriction  that  two  runs  on  successive  lines  in  a 
blob  may  be  displaced  from  each  ether  nc  more  than  three 
pels  on  either  side.  In  effect  this  controls  bleb  contours 
and  captures  two-dimensional  coherence  which  is  reflected 
in  high  ceding  efficiency.  A  mere  extensive  discussion  of 
the  particular  choice  of  the  constraint  of  three  is  given 
in  Appendix  A. 

The  blot  organization  of  data  gives  greater  control 
over  defining  approximate  encodings,  which  simultaneously 
increase  coding  efficiency  and  maintain  high  fidelity  to  the 
original  image.  Also,  there  is  strong  indication  that  the 
bleb  data  may  be  used  for  pattern  recognition  purposes  to 
identify  vectors,  characters,  or  higher  level  image  struc¬ 
tures.  As  ore  example,  Pferd  ar.d  Ranachandran  [2]  discuss 
a  computer-aided  automatic  digitizing  system  for  encoding, 
editing,  and  displaying  engineering  documents  by  converting 
Frank  code  tc  vector  representation.  On  a  test  docunent 
Frank  coding  yielded  a  compression  factor  of  20,  and  the 
vector  representation  increased  this  to  36.  It  is  to  be 
noted  that  both  the  blob  parameters  and  the  vectors  were 
coded  in  raw  form,  and  that  efficient  coding  would  result 
in  a  higher  compression  factors.  We  also  note  that  the  in¬ 
dicated  vector  representation  gives  a  high  fidelity  approx¬ 
imation  tc  the  original  image.  In  addition  to  improving 
compression,  the  vector  representation  permits  changes  to 
the  image  to  be  made  easily  either  automatically  or  by 
operator  intervention.  The  authors  also  discuss  the  exten¬ 
sion  of  the  system  to  recognise  characters  and  "elements" 
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such  as  rectangles.  With  this  extension  the  system  is  ex¬ 
pected  to  result  in  a  compression  ratio  of  180.  The  use  of 
blob  data  to  encode  image  features  is  also  discussed  in  sec¬ 
tion  4  below. 


2.2 
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Me  encode  by  comparing  the  black  runs  on  two  sequential 
scan  lines*  called  line  A  and  line  B.  In  general  terms*  if 
a  line  B  run  is  displaced  fros  a  line  A  run  by  nc  more  than 
three  pels  on  both  the  left  and  right  sides  separately*  then 
a  CONNECT  code  may  be  issued.  As  discussed  in  Appendix  A* 
our  studies  have  shown  that  a.  displacement  of  three  results 
in  both  ceding  efficiency  and  in  definition  of  bloc  struc¬ 
tures  which  are  of  meaningful  sise  and  coherence  for 
feature-based  eperations.  If  a  line  B  run  does  not  connect 
to  any  line  A  run*  then  the  line  B  run  starts  a  new  blob* 
and  a  HEAD  code  is  issued.  Following  the  initial  start  or 
any  restart  of  the  encoding  algorithm*  in  the  first  image 
line  which  contains  any  black  runs,  all  the  runs  are  neaas 
of  blobs.  If  a  line  A  run  does  net  connect  to  any  line  B 
run*  ther,  the  line  A  run  is  the  last  run  in  a  blob*  ana  an 
ENC  code  is  issued.  In  some  cases*  END  codes  are  redundant 
and  are  accordingly  deleted  as  indicated  further  belcw. 

More  specifically*  assume  a  line  scanned  image  ana 
focus  attention  at  the  left  margin.  Consider  the  two  se¬ 
quential  scan  lines  called  line  A  and  line  B.  The  relative 
positions  of  the  uhite-to-black  and  the  black- to-whi te  tran¬ 
sitions  in  these  two  lines  are  comparea*  and  codes  issued 
in  accordance  with  five  basic  ceding  rules.  For  illustra¬ 
tion  purposes,  we  present  these  rules  in  terms  of  pointer 
mechanisms  which  search  the  two  lines  for  the  transitions. 
Many  different  implementations  using  parallel  or  serial  ac¬ 
cess  or  a  combination  thereof*  can  be  realized.  In  this 
discussion*  assume  one  pointer  which  iroves  along  line  A*  and 
another  pointer  which  moves  along  line  B*  fros  left  to 
right.  Note  the  scan  coorainates  of  the  first  white-to- 
black  transition  and  the  first  black-to-white  transition  in 
each  line.  Zn  line  A*  call  the  coordinate  of  the  first 
black  pel  11*  In  line  B*  call  the  coordinate  of  the  first 
black  pel  B1.  Call  the  coordinates  for  the  first  white  pel 
after  the  first  black-to-white  transition*  A2  and  B2*  for 
the  two  lines  respectively.  The  (A1*B1)  and  (A2*B2)  sets 
define  twe  black  runs*  one  in  each  line.  We  compare  the  two 
black  runs  indicated  by  these  sets  ar.d  encode  according  to 
the  following  rules,  Which  are  illustrated  in  Figure  1: 

8-1* 
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1)  If  A  1-fa  1  >  3,  issue  a  rfa AL  code,  i  ndicating  mat  me 
run  in  line  B  is  the  first  run  in  a  blob,  and  advance 
the  line  E  pointer  to  me  next  white-to-black  and 
black-tc-white  transitions,  3  1  and  82. 

2)  If  J  A 1- E 1 1  <  3  and  A2-B2  >  3,  issue  a  HEAD  code  for  the 
run  in  lire  8,  and  aavance  tfe  line  B  pointer  tc  me 
next  El  and  B2. 

3)  If  | A 1 - B 1 1  <  3  ana  JA2-B2|  <  3,  issue  a  CONNECT  code, 
indicating  that  the  runs  in  lines  A  and  B  connect  to 
each  ether  in  the  same  blot,  anc  advance  both  line  k 
and  line  B  pointers  to  the  next  (A1,B1)  and  {A*#B2j. 

4)  If  Bl-Al  >  3,  issue  an  END  cede,  indicating  tnat  the 
run  in  line  A  is  the  last  run  in  a  blob,  and  advance 
the  line  A  pointer  to  the  next  white-to-black  and 
black-tc-white  transitions,  A1  and  A2. 

5)  If  JA1-E1J  <  3  an  82-A2  >  3,  issue  an  END  code  for  tne 
run  in  line  A,  and  aavance  the  line  A  pointer  to  the 
next  At  and  A2. 


Upon  advancing  the  line  A  pointer,  if  the  end  of  the 
line  is  reached  before  a  white-tc-tlack  transition,  then 
rule  (1)  holds  for  any  remaining  clack  runs  in  line  fa.  Tms 
condition  alsc  applies  for  the  first  line  in  the  iirage,  ana 
for  the  first  lire  any  time  after  the  algorithm  is 
restarted.  Thus,  all  black  runs  in  these  lines  are  hEAbS. 
Upcn  advancing  the  line  B  pointer,  if  the  end  of  tne  line 
is  reached  before  a  white-tc-black  transition,  then  rule  (4) 
holds  for  any  remaining  black  runs  in  line  A. 


2.2.2  Blob  Parameter  Codes 


In  the  following  we  describe  the  codeword  structure  for 
the  HEAD,  CONNECT,  and  END  codes.  A  HEAD  code  contains  two 
pieces  of  information,  effectively  giving  the  length  of  the 
first  run  in  the  blob,  and  the  position  of  the  blcc  in  the 
image.  For  the  position  information  we  use  the  standara 
one-dimensional  white-run-length  Modified  Huffiran  codewords. 
For  the  other  blob  parameters  we  use  a  newly  constructed 
Huffiran  ccdetook.  This  new  coaebock  is  completely  separate 
from  the  standard  one-dimensional  white-run-length  Moaifiea 
Huffiran  ccdetock.  The  separation  is  possible  because  the 
head  position  code  always  follows  the  code  for  the  head 
length.  The  two  codebooks  may  in  fact  contain  the  same 
values,  which  of  course  have  different  ireanings  depending 
upcn  the  ccdebcok  accessed.  Appendix  B  shows  a  specific 
blob  parameter  codebook  along  with  the  frequency  data  of  the 
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blot  parameters  for  tne  ensemble  of  the  eiqht  stanoara  cCIII 
test  images.  This  data  assumes  aigitization  at  full  resolu¬ 
tion  arid  a  h  factor  of  inrirnty,  as  discussed  turtnei  ceiow. 
The  bloc  parameter  Huffnan  cojee  are  based  on  tnis  frequency 
data,  with  adjustments  to  accomodate  the  end  of  line  (EcL) 
code,  the  fill  bits  which  may  be  necessary  to  attain  a 
minimum  transmission  time  per  inage  line,  ar.d  resynchroniza¬ 
tion  procedures,  as  aiscussea  m  full  further  celow.  he  now 
discuss  the  bleb  parameter  codeword  structure  in  detail. 


1)  HEAD  code,  position 

The  blot  position  is  the  number  of  white  pels  uisplaoe- 
ment,  D,  of  the  current  black  head  run  from  either  (a) 
the  previous  black  run,  or,  (b)  the  left  hand  margin  it 
the  run  is  the  first  black  run  in  an  image  line.  This 
last  condition  is  applicable  because  in  a  Group  3 
machine  each  line  is  terminated  with  an  ECL  coae.  This 
parameter  is  coded  with  the  standard  one-dimensional 
white-run-length  Moaified  Huffman  codewords. 

2)  HEAD  code,  length 

The  length,  L,  of  the  heaa  run  as  given  by  a  Huffman 
codeword,  or,  in  the  case  cf  "leng"  heads,  by  a  hurfn.dn 
codeword  followed  by  a  suffix  cede.  Those  runs  40  pels 
or  less  are  assigned  unique  Huffman  codewords.  Runs 
exceeding  U0  pels  are  classified  into  three  categories. 
The  first  category  contains  the  31  run  lengths  of  41 
through  71.  The  second  category  certains  the  511  run 
lengths  of  72  through  582,  and  the  third  category  con¬ 
tains  all  run  lengths  exceeding  582.  Each  of  the  tnree 
categories  is  assigned  a  unique  Huffman  codeword.  The 
code  issued  for  a  head  in  the  first  category  consists 
of  the  Huffman  codeword  for  the  first  category,  ana  5 
additional  bits  to  indicate  the  particular  member  in 
the  category.  Specifically  the  5  bits  comprise  the 
binary  value  of  the  head  length  minus  40.  Similaily, 
the  code  for  a  head  in  the  seccr.d  category  consists  or 
the  Huffman  codeword  for  the  category,  and  9  cits  which 
contain  the  binary  value  of  the  head  length  minus  71. 
Finally,  the  code  for  a  head  in  the  third  category  con¬ 
sists  of  the  Huffman  codeword  fer  the  category,  ana  11 
bits  which  contain  the  binary  value  of  the  heaa  length 
minus  582. 


Fesynchronization  is  discussed  in  detail  further  below. 
At  this  point  we  note  that  in  nc  case  does  the  5,  9,  or 
11  suffix  consist  of  all  zeroes.  Also  for  resyn¬ 
chronization  purposes,  if  any  of  the  5,  9,  or  11  suffix 
bits  end  in  four  zeroes,  then  an  additional  1  is  ap¬ 
pended.  In  these  cases,  the  suffix  code  consists  of  b, 
10,  and  12  bits  for  the  three  leng  head  categories 
respectively.  This  condition  occurs  rarely.  Firstly, 
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it  cccurs  for  less  than  1  cut  or  each  16  cinary  values 
of  the  suffix  bits.  Secondly,  as  can  be  seen  iron  tne 
frequency  data  in  Appendix  fi,  the  number  of  long  beaus, 
i.e.  tncse  of  length  4  1  through  2560  inclusive,  is  a 
total  of  1076,  as  compared  for  example  to  the  number  of 
heads  of  length  three  or  less,  wnich  is  a  total  of 
33,307. 

3}  CONNECT  code 

A  CONNECT  code  defines  both  the  left  hv-na  displacement, 
LH3  =  6  1-A1,  and  the  right  hard  displacement, 

EH 3  =  B2-A2.  As  there  are  sever  left  hand  displace¬ 
ments  ar.a  seven  right  hana  displacements,  there  are  4V 
different  Huffman  CONNECT  codas. 

4)  END  code 

An  END  code  is  the  same  for  all  tlcbs.  Therefore  there 
is  only  ore  Huffman  END  code. 


In  summary,  there  are  43  HEAD  length  codes,  49  CONNECT 
codes,  and  1  END  code,  yielding  a  total  of  93  blob  parameter 
codes.  The  ceding  for  one  blob  consists  of  a  HEAD  cede  ana 
ere  CONNECT  cede  for  each  run  xn  the  blob  on  scan  lines  fol¬ 
lowing  the  head  run,  and  in  some  cases  an  END  code.  In  tne 
encoded  bit  stream  we  freely  intermix  the  HEAD,  CONNECT,  and 
ENC  codes  for  cne  bleb  with  the  same  codes  for  other  clots. 
This  is  illustrated  in  the  example  shown  in  Figure  2. 

It  should  be  noted  that  an  EOL  cede  is  net  required  for 
correct  decoding.  Thus,  for  example,  consider  the  aecoding 
of  the  codes  indicated  for  the  example  in  Figure  2.  As  in 
the  encoding  process  we  may  visualize  the  decoding  process 
as  employing  two  pointers,  one  for  the  last  line  con¬ 
structed,  called  line  A,  and  one  fer  the  next  line  to  be 
constructed,  called  line  B.  To  construct  line  1,  we  may  use 
a  fictitious  line,  0,  as  line  A,  ana  line  1  as  line  fa.  We 
assume  line  0  has  no  black  runs  in  it.  The  first  code, 

HEAD  (1=4 ,E=0) ,  causes  the  run  J1  tc  be  constructed.  The 
next  code,  CONNECT {LHS= 2,  BHS-0)  ,  causes  the  decoder  to  move 
the  line  A  pointer,  searching  fer  the  next  black  run  in  line 
0.  The  search  starts  at  the  left  end  of  line  0,  ana  reacn^s 
the  end  of  the  line  without  having  found  a  black  run.  When 
this  happens  the  decoder  switches  to  the  next  two  lines  in 
sequence,  i.e.  line  1  now  becomes  lire  A,  and  line  2  becomes 
line  B.  The  search  for  a  black  run  new  continues  in  the  new 
line  A,  and  the  run  J1  is  immediately  found.  The  C ON- 
NECT  (LHS=2,RHS=0)  is  made  relative  tc  the  J1  run,  thereby 
constructing  run  J2.  The  next  code,  HEAD (L=2,C=5) ,  causes 
the  head  run,  K1  to  be  constructed.  The  next  code, 

CONNECT (IHS=-1,3HS=-1) ,  again  causes  the  decoder  to  move  the 
line  A  pointer,  searching  for  the  next  black  run  in  line  1. 
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The  search  starts  to  the  right  cf  run  J1,  and  again  reaches 
the  end  of  the  line  without  having  found  a  black  run.  The 
decoder  switches  to  the  next  twe  lines  in  sequence,  i.e. 
line  2  new  fceccires  line  A,  and  line  3  becomes  line  b.  The 
search  for  a  black  run  now  continues  in  the  new  line  A,  ana 
the  run  J2  is  found.  The  CONNECT (LKS=- 1 , BHS=-  1)  is  made 
relative  to  the  J2  run,  thereby  constructing  run*  J3. 

Thus  we  see  how  CONNECT  codes  may  be  properly  oecoaea 
with  no  reference  to  any  EOI.  codes.  This  is  also  the  case 
for  HEAD  codes.  However,  if  EOI  codes  are  inserted  because 
of  the  standard  Group  3  requirement,  then  advantage  is  taxer, 
of  them  by  specifying  the  aisplacemert,  D,  of  the  first 
black  run  in  any  image  line  to  be  measured  relative  to  the 
left  hand  margin,  as  indicated  for  example  by  the  head  run 
Ml  in  Figure  2. 

In  addition,  in  an  error  free  environment  or  one  per¬ 
mitting  retransmission,  SOL  coaes  are  not  required.  Then 
we  may  consider  the  bit  stream  representing  the  imaye  to  oe 
continuous,  and  the  end  of  an  image  line  is  "wrapped  around" 
to  continue  immediately  with  tne  beginning  of  the  next  line. 
In  this  case,  the  displacement,  D,  measures  the  number  of 
white  pels  between  the  current  black  head  run  and  the 
previous  black  run.  These  two  runs  may  not  be  on  the  same 
image  line.  For  example,  the  displacement  for  the  head  run, 
N 1 ,  in  Figure  2,  would  be  «,  because  there  are  «  white  pels 
between  run  K1  and  the  previous  black  run,  K5.  The  two  runs 
may  in  fact  be  separated  by  any  number  of  lines.  The 
displacement,  D,  may  exceed  the  naximum  value  of  2560.  To 
code  a  displacement  equal  to  or  greater  than  2560,  we  divide 
the  displacement  by  2560,  giving  an  integral  quotient,  g, 
and  a  remainder,  8,  which  is  less  than  2560.  The  codeword 
corresponding  to  the  run  length  value  of  2560  is  issued  g 
times,  followed  by  the  codeword  for  the  remainder,  8.  For 
R  equal  tc  zero,  the  codeword  for  run  length  zero  is  issuea. 


2.2.3  Deletion  of  Redundant  ENC  Codes 


END  codes  serve  as  "tab  commands"  for  a  decoder.  For 
example  consider  the  codes  shown  in  figure  2.  Assume  that 
line  3  is  already  decoded.  The  next  three  codes  in  the  bit 
stream  are  the  two  ENDS  and  the  CONNECT (LHS*-1,BHS=1) .  T-  s 
first  END  code  causes  the  decoder  to  tab  beyond  the  first 
black  run,  J3,  in  line  3,  and  the  second  END  code  causes  a 
tab  beyond  the  next  black  run,  II,  in  line  3.  The  CONNECT 
is  then  made  properly  to  the  next  run,  K2,  in  line  3, 
resulting  in  the  construction  of  run  K3.  If  the  END  codes 
were  absent,  then  the  CONNECT  would  have  been  made  er¬ 
roneously  to  run  J3.  In  some  cases  the  END  codes  issued  ac¬ 
cording  to  the  five  rules  given  previously  are  redundant. 
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In  Frank  code#  three  redundancies  are  recognized.  These  are 
teriTea  the  HFC  (HEAD#  "NO,  CCNNtCl)  type,  the  HEH 
(HEAD,  END,  HEAD)  type,  and  tne  CEH  (CONNECT ,  END,  h£AL) 
type.  In  each  case,  the  '£  represents  one  or  a  nuircer  of  END 
codes. 

The  ri£C  redundancy  is  lllustratea  in  Figure  3.  The 
redundancy  can  be  seen  by  uccoomg  the  blob  aata.  Assume 
that  line  A  is  already  constructed,  and  that  line  B  remains 
to  be  reconstructed.  The  first  cede,  hEAO(l.= 12,D=0)  ,  is 
constructed  airectly.  Then  the  END  cedes  for  blobs  G,  H« 

I,  J,  and  K,  simply  "tab"  across  line  A  so  that  the 
CONNECT  (LHS=-2, RHS*0)  is  made  tc  run  LI,  resultirg  in  the 
construction  of  run  L2.  However,  the  END  codes  for  blobs 
G,  H,  and  I,  can  oe  deleted.  These  runs  can  not  possibly 
connect  to  ary  clack  run  succeeding  the  heaa  run  K,  because 
the  left  sides  of  runs  G,  b,  and  I  are  more  than  tnree  pels 
away  from  any  black  run  succeeaing  run  M.  Specifically,  the 
left  sides  of  G,  H,  and  I  are  at  or  before  pel  position  10, 
and  the  left  side  of  any  run  succeeding  run  M  must  be  at  or 
after  pel  position  Itt.  By  the  same  token,  the  END  codes  for 
blebs  J  and  K  must  be  retained.  As  indicated  in  the  ngure, 
any  END  run  starting  prior  to  pel  position  11  may  ce 
deleted,  and  ary  END  run  starting  at  cr  after  pel  position 
11  must  be  retained.  The  value  cf  £>2  for  run  N  is  13. 

Thus,  xn  general,  any  run  m  line  A  such  that  B2-A1  >  l  may 
te  deleted. 

A  coded  tit  stream  in  which.  END  codes  have  been  aeieteo 
requires  a  simple  change  to  the  decoding  process. 
Specifically,  when  a  HEAD  is  decoded,  leaving  the  line  b 
pointer  at  the  position  B2,  then  the  line  A  pointer  is  moved 
to  position  E2-3.  The  codes  for  any  END  runs  starting  at 
or  to  the  left  of  this  position  in  line  A  were  deleted.  Tne 
actions  taker,  at  this  point  depend  upon  the  next  code  in  the 
bit  stream.  If  this  code  is  another  HEAD  code,  then  the 
head  run  is  ccrstructed,  ana  the  line  A  pointer  is  advanced 
to  the  new  position  B2-3.  If  this  cede  is  an  END  cr  a  CON¬ 
NECT  code,  then  the  decoder  searches  for  the  first  white- to- 
black  transition  in  Jine  A  to  identify  th::  next  occurring 
black  run.  The  earliest  position  at  wh^ch  such  a  black  run 
may  start  is  B2-2.  In  the  example  shown  in  Figure  3,  assume 
that  the  END  cedes  for  runs  G,  H,  ind  I  have  been  aeleted 
and  that  the  END  codes  for  runs  J  and  k  have  been  retained. 
The  HEAD (L=1 2,D*0)  is  decoded  and  rur  M  constructed,  leaving 
B2  at  pel  position  13.  Next,  the  line  A  pointer  is  advanced 
to  position  B2-3,  which  is  position  10.  The  next  code  in 
the  bit  stream  is  the  first  END  code.  In  this  case,  the 
decoder  starts  at  position  10  and  searches  for  the  first 
white-to-black  transition.  This  occurs  between  pel  position 
11  and  12.  Therefore,  run  3  is  identified  as  the  next  oc¬ 
curring  black  run.  The  END  code  is  applied  to  this  run,  ar.d 
the  decoder  "tabs"  beyond  it.  Similarly,  the  second  END 
code  is  applied  to  run  K,  and  the  decoder  likewise  "tabs" 
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lie  nHi-  re  tindancy  is  illustrated  in  riiure  u.  A-jain 
the  redundancy  can  be  seen  by  decoding  the  t  lot  data.  «s- 
surr^  tt.at  lire  A  is  already  constructs  and  that  line  s, 
remains  to  be  reconstructs.  The  first  heaa  coae, 
hi AL  (L=6 , C=0) ,  is  reconst ructea  relative  to  the  lert  margin. 
The  s*-cono  heaa  cod°,  HEAD(L*3,E=3)  is  reconstructeu  rela¬ 
tive  to  the  right  end  of  trie  first  heaa.  To  construct  these 
heacs,  nc  reference  need  be  made  at  all  tc  the  twe  c.i> L  cojos 
which  termiate  clots  I  ana  J.  Furthermore,  any  FND  coae 
which  occurs  cetw*>eu  the  two  neaas,  1  ana  y,  is  for  a  run 
wh,  "h  under  r.c  condition  can  correct  to  a  run  v.hicn  succeeus 
run  ir.  line  E.  consider  for  example  run  J.  Ir.  crdei  zor 
it  to  be  an  END  preceding  the  HEAD  rcr  run  x,  it  must  satis¬ 
fy  rule  (4)  cr  rule  (5).  Either  At  fer  run  J  trust  Le  n.cre 
than  three  to  the  left  of  31  for  run  K,  or,  A2  for  lun  J 
nust  be  mere  than  tnree  to  the  left  ex  B2  for  run  In 
either  case.  At  for  run  J  is  irore  than  three  to  the  lezt  or 
B 1  tor  run  ¥2,  making  a  connection  impossible.  Thus,  any 
END  run  occurring  between  two  HEADS  is  rot  needed  rcr  con¬ 
structing  the  HEAD  runs  or  any  succeeding  CONNECT  runs. 

If  these  ENDS  are  deleted,  they  can  be  bypassed  easily 
during  the  decoding  process  in  the  satre  itanner  as  indicated 
before.  It  is  to  be  noted  that  a  rur  in  line  A  starting  at 
pel  position  9  or  10,  can  not  ce  an  END  run  preceding  uie 
HEAD  I*..  Tc  begin  with,  such  runs  do  rot  satisfy  rule  (4)  , 
i.e.  their  left  siaes  are  within  a  distance  of  three  from 
the  left  side  of  run  M.  Also,  such  runs  do  not  satisfy  rule 
(5).  In  particular,  A1  for  these  runs  is  not  more  than 
three  to  the  left  of  B2  for  run  N.  This  means  that  A2  for 
these  runs  is  also  not  more  than  three  to  the  left  of  o2  for 
run  y,  thus  violating  rule  (5) .  Since  these  runs  can  satis¬ 
fy  neither  rule  (4)  nor  rule  (5) ,  they  can  not  be  ENDS 
preceding  the  HEAD  M.  However,  they  are  ENDS  following  the 
hIaC  M,  and  preceding  the  CONNECT  for  run  K2.  They  will  be 
deleted  under  the  HEC  redundancy  type  deletion  process 
described  previously,  because  m  each  case,  B2-A1  >  2. 

Thus,  the  deceder  may  proceed  ir.  this  case  as  in  tne 
previous  example,  bypassing  all  runs  in  line  A  witn 
B2-A1  >  2. 

The  CEH  redundancy  is  similar  tc  the  HEH  redundancy  ana 
may  be  treated  the  same  way  in  the  decoding  process. 

Ke  have  illustrated  the  deletion  of  redundant  END  coaes 
by  explaining  how  to  handle  them  in  the  decoding  process. 

In  the  encoding  process,  redunaant  END  codes  can  be  aeleteu 
by  the  following  rules. 
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1)  Upon  iaentif icacion  ot  an  ENE  ccncition,  the  END  ccoe 
is  net  issued  immediate ly,  tut  actions  are  taxen 
depending  upon  preceding  conditions: 

a)  It  the  preceding  ccnoiticis  were  a  CONNECT  fol¬ 
lowed  oy  any  nu.iioer  of  ENLS,  (CEE...E),  end*  a 
specitied  ''eriii">  counter  is  increased  by  l  rot  tut 
current  iNC  condition.  In  this  case,  the  tno 
counter  contains  a  count  of  the  number  or  succes¬ 
sive  ENDS  tnat  have  teer.  lcer.tifieo  following  a 
CONNECT  code. 

b)  If  the  preceding  conditions  were  a  K£«C  rollowed 
by  any  number  of  ends,  (h£E...E),  then  tne  end 
counter  is  increased  by  1  rcr  the  current  END  con¬ 
dition  only  it  xWt'  >  B2,  where  A  1  is  the 
cocromate  of  the  first  pel  in  the  run  ioentnieu 
as  an  END,  and  B 2  is  the  coordinate  of  tne  pel 
following  the  last  pel  in  tne  preceding  ntAL  run. 
In  this  case,  the  end  counter  contains  a  count  oi 
the  number  of  successive  ENDS  that  have  oetn  iden¬ 
tified  following  a  HEAD  code,  other  than  those 
ENDS  which  can  not  possitly  connect  to  any  ciacx 
runs  succeeding  tne  indicated  HEAD. 

2)  Upon  identification  of  a  HEAD  condition,  no  ENL  cooes 
are  issued,  the  end  counter  is  reset  to  0,  ana  then  the 
HEAD  code  is  issued. 

3)  Upon  identification  of  a  CCNNECT  condition,  as  many  tiw 
codes  are  issued  as  indicated  in  the  end  counter,  the 
counter  is  reset  to  0,  and  then  the  CONNECT  coae  is  is¬ 
sued. 


2.2.« 


The  EOL  cede  is  eleven  zeroes  followed  by  a  1.  Fill 
bits  of  zeroes,  where  required  tc  attain  a  specifiea  minimum 
transmission  time  per  image  line,  are  inserted  before  the 
ECL  code.  To  distinguish  the  ECI  code  from  the  blob 
parameter  codes,  we  have  prohibited  the  blob  parameter  codes 
from  having  a  prefix  of  eleven  zeroes.  As  can  be  seen  from 
the  blob  parameter  codebook  in  Appendix  fl,  no  blob  parameter 
codeword  starts  with  eleven  zeroes,  and  thus  the  configura¬ 
tion  for  the  ECL  code,  or  for  the  EOL  code  with  fill  bits, 
can  be  uniquely  determined.  Upcn  decoding  such  a  string  of 
eleven  zeroes,  the  decoder  searches  the  following  bit  stream 
for  the  first  occurring  1.  Any  zeroes  encountered  in  this 
search  are  fill  bits.  To  provide  for  the  EOL  code,  or  the 
ECL  code  with  fill  bits,  requires  that  a  few  blob  parameter 
codes  have  one  more  bit  than  if  this  provision  did  not  have 
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tc  ce  rraoe.  It  should  be  noted  that  many  realizations  or 
a  Huffman  code  for  a  given  frequency  distribution  are 
possible.  Ihe  realization  snowr  m  Appendix  E  is  nighly  ef¬ 
ficient  in  that  the  few  bioi  paraneter  codes  extenjc-a  by  one 
tit  a those  with  the  most  lnjrr-gutrt  occurrences.  Ihe 
codecook  alsc  meet s  resynchrom za tier,  requirements  as  in¬ 
dicated  further  below. 

Ihe  return  to  control  coae  consists  of  the  stunaaru  six 
ECL  codes. 


2 .  2 .  5  glob  farameter  Codebook  with  Succlementary  Codes 


Appendix  B  show3  the  coaebcok  containing  the  *3  t-iou 
paraneter  codes.  Observe  that  the  rules  outlinea  atove  form 
the  primitive  elements  or  words  cf  a  language  whicn 
describes  two-dimensional  run  length  correlation,  as  the 
image  is  encoded,  it  is  translated  from  the  oinary  pel-ny- 
pel  language  to  the  language  of  HE  ACS,  CONNECTS,  ana  Eh Lt>. 

A  particularly  attractive  inplenentation  feature  is  to  per¬ 
mit  the  future  extension  of  this  language  to  include  other 
primitives.  Such  primitives  may,  for  example,  code  gray 
scale  and  color,  or  they  may  relate  to  extended  image  opera¬ 
tions,  or  they  may  be  codes  to  concrcl  the  receiver  in 
various  ways.  Economies  can  oe  realized  by  using  the  same 
mechanism  to  decode  these  functions  as  that  used  to  identify 
the  basic  language  primitives.  We  therefore  urge  tnat  the 
bleb  parameter  codebook  be  augmented  with  12  supplementary 
unassigned  codes,  zs  shown  in  Appendix  C.  If  the  expanded 
codebook  ir.  Appendix  C  is  used  rather  than  the  codebcox  in 
Appendix  B,  then  only  158  additional  bits  are  required  to 
code  all  eight  test  images,  or,  less  than  20  additional  nits 
per  image  cn  the  average.  This  assumes  digitization  at  full 
resolution,  and  a  K  factor  of  infinity,  as  aescrihea  further 
below. 


2.2*6  Resvnchronization 


If  transmission  conditions  result  in  loss  of  syn¬ 
chronization,  so  that  the  beginning  cf  a  codeword  becomes 
unknown,  the  decoder  may  resynchronize  by  searching  for  a 
pattern  of  eleven  zeroes  and  a  1.  This  is  the  ECL  code,  or, 
the  terminal  portion  of  an  EOL  cede  with  fill  bits.  This 
pattern  can  not  be  generated  from  any  combination  of 
codewords.  To  insure  this  condition  the  blob  parameter 
codes  obey  the  following  rules. 
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1)  No  HEAD,  END,  or  CONNECT  cede  consists  of  all  zeroes 
or  contains  any  initial,  terminal,  or  internal  segment 
consisting  of  eleven  zeroes. 

2)  No  succession  of  any  two  HEAD,  END,  or  CONNECT  cooes 
can  result  m  eleven  zeroes.  As  seen  froir  Appendix  d, 
the  rtaximum  number  of  initial  zeroes  of  any  of  these 
codes  is  five,  and  the  rraxinurr  rumter  of  terminal 
zeroes  is  four. 

3)  No  succession  of  any  HEAD  code  fer  the  head  lengths  cf 
1  through  40,  followed  by  any  one-aimensional  white- 
rur.-lengtb  Modified  Huffman  cede  can  result  in  eleven 
zeroes.  As  can  be  seen  frezi  Appendix  B,  the  maximum 
number  of  terminal  zeroes  for  ary  HEAD  code  is  three, 
and  the  maximum  numoer  of  initial  zeroes  for  the  run 
length  codes  is  seven.  We  rote  that  the  maximum  number 
of  terminal  zeroes  for  any  CCNNICT  code  is  four,  but 
that  a  CONNECT  code  is  never  followed  oy  a  run  length 
code. 

«)  No  succession  of  any  one-diirensicnal  white-run-length 
Modified  Huffman  code,  followed  by  any  HEAD,  END,  or 
CONNECT  cede  can  result  in  eleven  zeroes.  This  follows 
because  the  maximum  number  of  terminal  zeroes  in  the 
run  length  code  is  three,  and  the  maximum  number  or 
initial  zeroes  in  any  blob  parameter  code  is  five. 

5)  No  succession  of  any  "long  head"  category  code  followed 
by  an  associated  suffix  code  can  result  in  eleven 
zeroes  because  each  "long  head"  category  code  enas  in  a 
1,  ana  no  "long  head"  suffix  code  consists  of  all 
zeroes. 

6)  No  succession  of  any  "long  head"  suffix  code  followec 
by  any  cne-dimensional  white-run- length  Modified  Huff¬ 
man  cede  can  result  in  eleven  zeroes.  This  follows 
because  any  such  suffix  code  having  four  terminal 
zeroes  is  appended  with  a  1,  and  the  initial  part  of 
the  run-length  code  has  a  maximum  of  seven  zeroes. 


The  blot  parameter  coaes  are  specifically  constructed 
to  obey  the  rules  above.  In  addition,  they  may  be  expected 
to  result  in  efficiencies  for  Group  4  machines,  where  hDLC 
procedures  are  in  effect.  In  this  case  the  pattern  of 
01111110  is  reserved  for  a  synchronization  code  for  data 
frames.  Tc  avcid  occurrence  of  this  pattern  in  the  aata 
stream  requires  insertion  of  0  tits  in  runs  of  six  or  more 
1* s.  In  this  respect  we  note  that  leng  runs  of  1's  in  the 
bleb  parameter  codewords  are  rare.  Furthermore,  combina¬ 
tions  of  the  blob  parameter  coaewords  of  five  bits  or  less, 
which  are  the  most  frequently  used  codewords,  will  never 
result  in  six  contiguous  1's. 
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In  Group  3  machines,  resynchronisation  is  required  upon  detection 
of  any  of  a  number  of  error  conditions.  Among  these  are  the  following  : 

a)  A  HEAD  code  occurs  and  the  corresponding  run  extends  to 
the  right  of  the  image  line  of  for  example  1708  pels, 

b)  A  CONNECT  code  occurs,  and  the  corresponding  run  extends  to 
the  left  of  and/or  to  the  right  cf  the  image  line. 

<')  A  HEAD  or  CONNECT  code  occurs,  and  the  corresponding  run 
overlaps,  or,  is  not  offset  by  at  least  one  pel  from  the 
adjacent  run,  if  any,  on  the  left  in  the  same  image  line. 

d)  A  CONNECT  code  occurs  and  there  is  no  candidate  run  in  the 
previous  line  to  which  a  connection  can  be  made. 

e)  A  CONNECT  code  occurs  and  the  computed  right  end  of  the 
corresponding  run  precedes  the  computed  left  end  of  the  run. 

This  occurs,  for  example,  if  a  run  of  three  pels  in  one 
image  line  ia  to  connect  to  a  run  of  one  pel  in  the  next  line 
with  a  CONNECT  (LHS  *  1,  RHS  *  -1),  but  the  connection  is 
erroneously  made  to  a  run  of  one  pel  in  the  first  image  line. 

f)  An  END  code  occurs,  and  there  is  no  candidate  run  in  the 
previous  line  to  which  the  END  code  may  apply. 

g)  An  unassigned  supplementary  code  is  detected. 

Upon  detention  of  an  error  condition,  the  decoder  searches 
for  the  next  EOL  code  of  eleven  zeroes  and  a  1.  The  code  between 
the  detected  error  and  the  EOL  code  is  bypassed,  and  any  remaining 
portion  of  the  image  line  under  construction  is  filled  with  the 
corresponding  portion  of  the  previous  scan  line.  This  permits 
the  possibility  that  the  initial  portions  of  the  subsequent  lines 
up  to  the  next  restart  point  are  faithfully  captured. 
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2.2.7  Irror  handlim 


In  Group  3  machines,  we  may  restrict  error  propagation 
by  restarting  the  coding  algorithm  =vary  K  lines.  Ihe  K 
factor  may  be  set  equal  to  2  or  4  for  the  standard  ncrn.al 
and  nigher  resolutions  respectively.  Cf  importance,  the 
restart  can  te  trace  adaptive  accoroing  to  line  conditions. 
The  encoder  can  change  the  K  factor  at  will  without  having 
to  transmit  ar.y  indication  of  the  K  factor  to  the  decoder. 

A  restart  sinply  causes  the  black  rur.s  on  the  next  line  to 
be  all  heads  of  blobs.  This  is  a  condition  which  may  occur 
normally,  and  the  decoder  need  r.ct  krcw  that  such  condition 
is  caused  by  a  restart. 

In  Group  4  machines,  it  is  normally  assumed  that  an  er¬ 
ror  free  code  transmission  environment  will  be  estaclisned 
ty  a  level  two  protocol  procedure  such  as  HDLC.  For  such 
an  environment  it  is  most  efficient  tc  use  a  K  factor  of  in¬ 
finity  and  to  use  the  wrap-around  coding  procedure.  Tnere 
are,  .however,  rare  situations  where  errors  can  escape  level 
twc  procedures.  Thus,  the  designers  cf  the  X.25  procedure 
chose  to  check  for  frames  out  of  sequence  at  level  three  al¬ 
though  this  is  usually  completely  solved  at  level  twc.  An 
undetected  frame  out  of  sequence  could  ruin  the  integrity 
of  the  X.25  procedure.  Additional  error  detection  can  op¬ 
tionally  be  built  into  the  coded  facsimile  data  by  the 
simple  addition  of  a  black  stripe  ere  pel  wide  at  the  right 
hand  side  of  the  image.  The  stripe  must  be  offset  from  tne 
real  image  data  by  three  white  pels  sc  that  the  stripe  will 
code  as  one  blob  with  (0,0)  CONNECTS.  This  stripe  uses  up 
only  a  few  pels  of  the  image  field  which  is  normally  unim¬ 
portant.  It  can  be  added  by  an  image  preprocessor  and  is 
not  linked  tc  the  actual  coding  algorithm. 

In  the  worst  case  only,  the  Hack  stripe  will  aod  2N 
bits  to  the  coded  data,  where  N  is  the  number  of  scan  lines 
in  the  image.  In  actual  practice  the  number  of  additional 
bits  is  considerably  less.  In  cur  experiments  we  determined 
that  the  addition  of  the  blacx  stripe  resulted  in  5941  ad¬ 
ditional  bits  to  code  ell  eight  CCITT  test  images,  or,  less 
than  750  additional  bits  per  image  cn  the  average.  This  as¬ 
sumes  digitization  at  full  resolution  and  a  K  factor  of  in¬ 
finity.  Cf  interest,  for  image  Nc.  1,  addition  of  the  black 
stripe  resulted  in  5476  less  bits  to  code  the  image.  Tne 
improvement  results  because  of  the  ccr.tainment  of  the  blob 
position  parameter  to  one  line,  and  is  particularly  effec¬ 
tive  for  sparse  images.  The  stripe  provides  a  simple  con¬ 
sistency  check  at  the  dacoder  that  nc  errors  have  slipped 
past  level  twc  procedures  into  the  facsimile  code  stream. 

If  an  error  is  detected  by  the  loss  cf  the  black  stripe,  the 
decoding  process  can  be  check  pointed,  and  a  recovery 
procedure  initiated.  The  stripe,  of  course,  can  be  shielded 
from  actual  printing.  In  addition,  the  stripe  limits  white 
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and  tlack  rur.s  in  the  inrage  plane  tc  cne  scan  line  whicn  may 
be  an  advantage  for  sin-pie  facsimile  encoders  and  decoders. 
We  feel  the  tlack  stripe  is  a  very  useful  adjunct  co  the 
basic  code.  However,  we  feel  its  addition  should  ct  left 
to  the  individual  manufacturer.  Cur  compression  results  ao 
not  reflect  the  use  of  the  tlack  stripe. 


2.2.8  Eytensi,on  of  Line  Length 


For  lines  of  any  length  greater  than  2560  pels,  provi¬ 
sion  is  made  for  head  lengths,  L,  cr  displacements,  L,  equal 
to  or  greater  than  2560  as  follows.  Excess  displacements 
may  be  coded  as  previously  indicated  for  excess  displace¬ 
ments  resulting  from  the  ••wrap-arcund"  permissible  in  an  er¬ 
ror  free  environment.  Specifically,  divide  the  given  quan¬ 
tity  by  2560,  giving  an  integral  quotient,  Q,  and  a 
remainder,  R,  less  than  2560.  The  codeword  corresponding 
to  the  value  of  2560  is  issued  Q  times,  followed  by  the 
codeword  for  the  remainder,  R.  For  displacements,  D,  the 
codewords  used  are  those  in  the  standard  one-dimensional 
white-run- length  Modified  Huffman  cooebook.  in  this  case, 
if  fi  is  zero,  the  codeword  for  rur.  length  zero  is  issued. 

For  excess  head  lengths  we  may  fellow  a  similar 
procedure.  Here  we  divide  the  given  head  length  by  2046, 
again  giving  an  integral  quotient,  Q,  and  a  remainder,  R, 
less  than  2046,  In  this  case  we  first  issue  the  Huffman 
code  for  the  third  category  of  MlongM  heads.  Next,  the  11 
bit  binary  value  of  1979  is  issued.  Next  the  11  hit  binary 
value  of  1  is  issued  Q-1  times.  Finally  we  issue  the  11  bit 
tinary  value  of  the  remainder,  R,  plus  2.  Note  that  the 
value  of  1979  is  different  from  any  ether  11  bit  long  head 
suffix,  which  has  the  maximum  value  cf  2560  minus  582,  or 
1978.  The  decoder  may  therefore  uniquely  interpret  the 
value  of  1979  to  indicate  an  excess  head  length  condition. 
Upon  the  first  occurrence  of  this  value,  the  decoder  con¬ 
tinues  tc  inspect  successive  11  bit  segments,  until  cne  oc¬ 
curs  that  does  not  have  the  value  1.  The  total  number  of 
11  bit  segments  with  the  value  c£  1  is  Q-1.  The  first  oc¬ 
curring  11  bit  segment  with  value  greater  than  1  is  the 
remainder,  fi,  plus  2.  The  addition  cf  2  prevents  the  final 
11  bits  from  assuming  a  value  cf  all  zeroes,  which  is 
reserved  for  the  EOL  code,  or  a  value  of  1,  which  is 
reserved  for  the  quotient  count. 
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3,  CODING  EFFICIENCY 


In  Tables  1  to  6,  we  show  the  results  of  a  computer 
simulation  of  the  Frank  coding  scheme  for  the  eight  CCI12 
Study  Group  XIV  test  documents  cf  the  1976  Graphics  Cooing 
Contest.  We  display  the  number  of  bits,  compression  fac¬ 
tors,  and  transmission  times  for  each  individual  image;  we 
alsc  show  the  average  results  fcr  the  ensemble  of  the  eignt 
images.  These  eight  images  were  horizontally  scanned  at  a 
resolution  of  8x8  pels/mm.  Each  image  contains  172b  pels 
per  scan  line  and  2128  scan  lines  per  image.  All  tne 
results  are  based  on  a  transmission  rate  of  4800  bits  per 
second.  Vie  use  the  blob  parameter  ccaebook,  based  on 
^infinity,  shewn  in  Appendix  B. 


Tables  1  to  3  contain  results  for  the  individual 
i  images.  The  left-most  three  columns  contain  the  figures  for 

images  coded  at  the  full  resolution  cf  8x8  pels/mm;  the 
s  right-most  three  columns  contain  tne  figures  for  images 

coded  at  the  resolution  of  8x4  pels/nm,  where  every  even 
numbered  scan  line  has  been  omitted  from  the  coding 
procedure.  Under  each  resolution  we  show  three  columns 
labeled  0  ms,  5  ms,  and  10  ms,  indicating  a  minimum  trans- 
l  mission  time  per  image  line  of  0,  5,  and  10  milliseconas, 

respectively.  The  numbers  in  the  0  ms  columns  include  only 
v  the  code  bits  and  the  return  to  ccriticl  bits,  and  represent 

therefore  the  raw  efficiencies  for  Group  3  machines.  The 
1  figures  under  the  5  ms  and  10  ms  headings  contain  the  code 

l  bits  plus  the  tits  for  the  start  of  message  (one  EOL) ,  fill, 

EOL,  and  return  to  control.  For  each  image  we  show  the 
results  when  the  K  parameter  equals  2,  4,  and  infinity. 


$ 


I 


In  Table  1  we  display  the  total  number  of  bits  to  code 
each  image.  Table  2  contains  the  compression  factors,  which 
are  defined  as  the  number  ot  pels  per  image  divided  by  tne 
number  of  bits  to  code  the  image.  With  a  resolution  of  8x8 
pels/mm,  the  number  of  pels  equals  1728x2128  *  3,677,184; 
with  a  resolution  of  8x4,  the  number  cf  pels  equals 
1728x1064  *  1,838,592.  In  Table  3  we  show  the  transmission 
times,  which  are  calculated  by  dividing  the  number  of  bits 
from  Table  1  by  4800  bits  per  second. 

Tables  4  to  6  contain  the  average  figures  of  the  in¬ 
dividual  image  results  reported  in  Tables  1  to  3.  In  Table 
4  wc  show  the  average  number  of  bits  required  to  code  each 
of  the  eight  images.  Table  5  contains  the  average  compres¬ 
sion  factors,  which  are  calculated  by  dividing  the  number 
cf  pels  per  image  by  the  average  number  of  bits,  as  shown 
in  Table  4.  In  Table  6  we  show  the  average  transmission 
times. 
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4.  PShFORkAhCE  WITH  t'C.SP'r'C  I  TO  SELECTION  CRITERIA 


A76T  Resented  a  ^aper,  "aelecricr.  Criteria  for  Ad¬ 
vanced  Facsimile  Encoding  scneues,"  at  the  December  19?o 
meeting  of  CCilT  Study  Group  (L16).  There  was  also  a  Unicea 
States  contribution,  "Criteria  for  the  Evaluation  of  Two- 
Dimensional  Coding  Techniques  fcr  Use  in  Digital  Facsimile 
Terminals,"  (C17).  These  two  documents  were  primary  inputs 
tc  tne  aacpted  standard  method  of  evaluating  two-dimensional 
coding  scheires.  Th*  purpose  vi  this  section  is  to  auuress 
in  part  the  issues  put  forth  in  the  selection  criteria  uocu- 
rrents.  Answers  to  refraining  points  will  be  submttea  curing 
the  testing  phase  of  the  evaluation  process,  in  line  with 
the  Eeceirter  1978  agreement.  We  new  address  the  points 
specifically  raised  in  the  AT&T  selection  criteria  paper. 

1.  A  new  standard  coding  scheme  should  be  designeo  where 
possible  tc  be  an  extension  cf  existing  standaru  cooing 
schemes. 

The  Frank  code  is  a  direct  upward  extension  of  the  stan¬ 
dard  one-diirensional  Modified  Huffman  Code  algorithm. 

The  Frank  algorithm  collapses  directly  to  a  one- 
dimensioral  run-length  algorithm  if  no  CONNECT  cooes  are 
allowed.  The  codebook  usea  fcr  the  blob  displacements 
is  exactly  the  same  as  that  used  for  the  white  runs  in 
the  Modified  Huffman  code.  Cne  advantage  we  feel  this 
code  has  over  other  current  two-dinensional  proposals 
before  CCITT  Study  Group  XIV  is  that  all  additional 
codes  are  incorporated  in  one  uniform  codefcook,  ana  that 
this  codebook  has  been  optimized  for  the  event  frequen¬ 
cies  of  the  blob  parameters. 


2.  A  new  standard  coding  scheme  should  be  easy  and 

economical  to  implement  in  both  dedicated  haraware  ana 
in  sequential  machines  such  as  minicomputers. 

The  Frank  code  has  been  widely  studied  and  usea  in  the 
Bell  System.  It  has  been  implemented  in  a  variety  of 
applications.  One  of  these  is  the  encoding  of 
trademarks  and  graphics  for  phctccomposing  advertise¬ 
ments  for  the  Yellow  Pages  telephone  directories,  and 
another  is  as  a  preprocessor  fcr  encoding  engineering 
documents  in  vector  form  [1,2, 3,4].  It  has  teen  im¬ 
plemented  in  hardwired  logic  [6],  in  microprocessors,  in 
minicomputers,  and  in  main  frame  computers.  Implementa¬ 
tion  is  direct  and  straightforward.  There  is  a  clear, 
clean  price  performance  spectrum  between  the  various  im¬ 
plementations.  We  feel  certain  that  manufacturers  with 
different  system  design  objectives  will  have  no  problem 
using  this  code  in  their  terminals. 
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Use  c£  the  proposeo  cooing  schetre  may  require  a  pa¬ 
tent  license  obtainaole  from  the  Western  Electric  Com¬ 
pany,  Greensboro,  North  Carolina,  USA.  Such  licenses 
wcula  Le  granted  to  all  parties  at  a  reasonable  royalty. 


3.  k  new  standard  coding  scheme  shoulo  be  based  on  the  moat 
statistically  relevant  events. 

After  experimentation  with  a  wioe  class  of  images,  we 
have  round  that  the  Huffman  codec  dob  parameters  are  a 
minimum  efficient  statistically  relevant  set.  This  can 
be  seen  in  part  from  the  frequency  data  presented  witn 
the  final  ensemble  codebook.  Ihe  limit  of  skew 
displacements  to  three  m  determining  CONNECTS  allows 
the  algorithm  to  capture  almost  all  image  features  which 
are  of  statistical  importance.  It  also  leads  to  a  clear 
partitioning  or  all  features  irtc  separate  blots.  The 
resultant  Huffman  code  is  Lcth  shcrt  and  manageable. 
Truncation  of  the  skew  displacement  at  three  is  more  ef¬ 
fective  than  allowing  ether  values.  Displacements  as 
large  as  a  full  page  width  are  cf  little  statistical  im¬ 
portance  in  the  coding  procedure,  and  displacements  as 
little  as  1  loose  important  relevant  events.  Appendix  A 
includes  further  discussion  cf  the  advantages  of  a 
displacement  of  three. 


4.  A  new  standard  coding  scheme  should  exploit  Hurtman 

coding  wherever  possible,  and  the  scheme  should  permit 
linguistic  extensions  of  the  Huffman  code. 

The  Frank  code  algorithm  fully  utilizes  Huffman  coding 
for  HEADS,  CONNECTS,  and  ENCS.  It  is  strongly  recom¬ 
mended  that  12  additional  unassigr.ed  codewords  be  added 
which  will  permit  future  extensions  of  the  coding 
scheme.  Examples  of  the  utility  of  this  provision  are 
to  be  found  in  the  AT&T  selection  criteria  paper. 


S.  A  new  standard  coding  scheme  should  be  suitable  for  use 
in  terminals  which  have  positive  errer  control,  as  well 
as  in  those  which  do  not. 

Almost  all  two-dimensional  coding  algorithms  are  most 
efficient  if  they  are  allowed  to  operate  in  an  error 
free  environment.  However,  for  G3  class  machines  this 
is  net  the  case  ana  adjustments  must  be  made  to  the  al¬ 
gorithm  to  prevent  errors  from  totally  corrupting  the 
encoded  message.  The  Frank  code  accomplishes  this  by 
restarting  the  two-dimensional  part  of  the  algorithm 
periodically.  This  is  covered  earlier  in  this  paper. 

Cf  particular  interest,  this  algorithm  restart  can  be 
made  adaptive.  In  fact,  the  enccder  can  restart  the  ai 
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gonthn  at  will  without  having  tc  r.otify  the  Occeder  or 
the  X  factor. 


6.  A  now  standard  coding  scneite  snculd  lend  itselr  to  r.ne 
addition  cf  operations  ter  feature  extraction  tc  pt-iit.it 
the  design  of  future  upward  compatible  coding  schenes 
based  cn  higner  level  inaye  structures,  including 
character  recognition. 

The  Frank  code  is  based  on  irrage  features.  The  ntaL, 
CONNECT,  and  END  description  cf  an  image  is  very  similar 
to  a  chain-vector  description  cf  an  image  border.  A 
sizable  tedy  of  literature  exists  which  shows  new  suen 
an  image  description  can  ce  used  to  classify  higner 
level  irrage  features,  ranging  frerr  stroke  data,  to 
simple  constructs,  and  up  to  full  characters.  Tne 
specific  use  of  this  coae  to  octam  vector  representa¬ 
tions  of  ergineering  documents  was  discussed  previously 
12). 


7.  A  new  standard  coding  scheme  should  allow  overlap 

processing  and  multiple  pass  processing  of  the  oatd  to 
effect  ceding  and  decoding. 

The  translation  of  a  pel-by-pel  description  of  an  image 
into  a  HEAD,  CONNECT,  and  END  description  is  totally  in¬ 
dependent  cf  the  process  which  assigns  codewords  to 
these  language  primitives.  Similarly,  the  separation  of 
the  coded  bit  stream  into  codewords  ana  the  decoomg  or 
the  codewords  is  independent  of  the  irrage  reconstruction 
process.  This  clearly  meets  the  overlap  processing  ob¬ 
jective. 


8.  A  new  standard  coding  scheme  should  permit  natural 

growth  from  handling  bilevel  material  to  future  exten¬ 
sions  for  handling  multilevel  gray  scale,  color,  ai.a 
texture  parameters. 

The  Frank  code  algorithm  car  easily  be  extended  to  coae 
a  structure  like  a  contour  map,  where  there  is  "step" 
information  as  well  as  the  image  contour  information.  A 
description  of  hew  to  cede  images  consisting  cf  areas  or 
varying  content,  such  as  gray  scale,  color,  or  texture, 
has  been  published  [5J.  This  is  a  direct  upward  exten¬ 
sion  from  coding  bilevel  images  with  Frank  coding. 
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OFIIMAL  LINE-TO-LINS  FUN  DISPLACEMENT 


Frank  ceding  specifies  the  maxinum  of  the  lir.e~to-la.ne 
run  displacenent  to  be  three.  This  condition  applies 
separately  tc  both  the  left  ends  ana  the  right  ends  of  two 
runs  on  successive  lines  of  a  blob.  It  is  this  containment 
on  both  sides  which  establishes  the  blob  structures  and 
leads  to  the  advantages  afforded  by  a  feature-criented  ap¬ 
proach.  kith  a  displacement  of  three,  there  are  seven  ways 
in  which  the  left  ends  of  two  successive  runs  rray  connect, 
and  similarly  there  are  seven  way  in  which  the  right  ends 
connect,  ke  have  shown  that  in  typical  facsimile  material, 
the  displacenents  on  one  side  of  a  bleb  are  correlated  with 
the  displacements  on  the  other  side.  To  capture  this  depen¬ 
dency  blob  coding  uses  a  single  CONNECT  code  to  specify  the 
connection  or.  both  sides.  There  are  7X7  or  49  possible 
values  to  the  CONNECT  code. 

We  may  ask  whether  the  choice  of  a  displacement  of 
three  is  optimal  for  the  Frank  code.  If  this  is  decreased 
to  two,  the  number  of  distinct  CONNECT  codes  drops  to  5X5 
or  25,  giving  smaller  Huffman  ccdewcios.  However,  this  im¬ 
provement  is  offset  by  a  larger  number  of  blobs.  Similarly, 
an  increase  in  the  displacement  tc  4  requires  9X9  or  81 
distinct  CONNECT  codes,  giving  larger  codewords,  tut  results 
in  fewer  blots.  Other  choices  are  also  possible. 

We  show  the  displacements  in  the  range  0-5  in  the  figure 
below.  Under  each  construct  we  list  the  absolute  value  of 
the  maximum  displacement,  D,  and  the  number  of  signed 
displacements,  2D* 1 .  The  resulting  ccntour  at  the  right 
side  of  a  blob  is  represented  by  a  straight  line  connecting 
the  midpoints  of  the  end  pels.  This  line  forms  an  angle, 
i,  with  the  vertical,  indicating  the  maximum  contour  slopes 
for  a  given  C.  With  D  equal  to  1,  A  is  45  degrees.  Con¬ 
tours  exceeding  this  angle  result  ir  multiple  blobs,  each 
containing  only  one  run.  This  multiplicity  can  be  reduced 
by  increasing  C.  Listed  in  the  figure  are  the  values  of  A 
as  well  as  the  first  differences  in  A.  The  rate  of  increase 
in  A  diminishes  as  D  increases.  Progressing  from  a  D  of  0 
to  a  D  of  1  improves  A  by  45  degrees.  In  going  from  a  D  of 
1  to  a  D  of  2  this  improvement  drops  to  18.4  degrees.  We 
have  noted  that  contour  lines  tend  tc  be  more  vertical  than 
horizontal,  resulting  in  heavier  weighting  of  smaller  D 
values.  In  cur  studies,  we  determined  a  displacement  of 
three  or  two  gives  optimal  coding  efficiency.  On  the  CCITT 
test  images  the  difference  in  efficiency  resulting  from 
these  two  choices  of  the  displacement  is  negligible.  Thus, 
the  ensemble  of  the  eight  CCITT  test  images  with  full 
resolution  ar.d  a  K  factor  of  infirity  requires  a  total  of 
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1,976,856  tits  using  a  displacement  cf  two,  and  a  total  of 
1,973,945  bits  using  a  displacement:  cf  three.  Although  the 
displacement  of  three  resulted  in  a  total  smaller  number  of 
tits,  the  displacement  of  two  excelled  in  half  of  the 
images.  However,  a  displacement  of  three  results  in  fewer 
tlofcs  than  a  displacement  of  twc.  Kith  the  expectation  that 
pattern  recognition  tasks  may  be  facilitated  by  the  smaller 
number  of  blots  we  have  chosen  a  displacement  of  three. 

Thus,  a  displacement  of  three  insures  that  both  coding 
efficiency  is  attained,  and  that  fclcts  are  defined  which  are 
of  meaningful  size  and  coherence  for  recognition  of.  stroke 
or  other  micrcpatterns,  as  may  te  desired.  We  believe  that 
the  strong  advantages  afforded  by  the  pattern  recognition 
capabilities  of  the  Frank  code  warrant  its  adoption  even  if 
slight  inefficiencies  result. 


^3  ^Tl 


C  0  1  2  3  4  5 

2C*  1  1  3  5  7  9  11 


A  0.0  45.0  63.4  71.6  76.0  78.7 

A(nM)-A(n)  45.0  18.4  8.2  4.4  2.7 
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appendix  B 


Blob  parameter  codeh-mv 


Frequency*  ^ 


220 
248 
33  3 
721 
328 
382 
303 
285 
821 
1444 
1767 
1461 
1443 
472 
504 
1957 
11884 
16623 
6186 
1544 


Ccdewcrd 

_lerj£^h_ 


1 1 
10 
10 
9 

10 

10 

10 

10 

9 

8 

7 

8 
8 
9 
9 
7 

5 
4 

6 


- 1  ,*3 

416 

a 

10 

0,-3 

705 

9 

0,-2 

1684 

8 

0.-1 

17351 

4 

0,  0 

104746 

2 

0,  +  1 

16066 

4 

0,  +  2 

1876 

7 

0,43 

918 

8 

♦1,-3 

372 

1  0 

♦1.-2 

1410 

8 

♦1.-1 

5351 

6 

♦1,  0 

15923 

4 

♦  1,*1 

8984 

6 

*  1  ,*2 

1916 

7 

♦1,+3 

694 

a 

♦2,-3 

409 

10 

♦2,-2 

1108 

8 

♦2.-1 

1222 

8 

♦  2,  0 

1965 

V 

7 

♦  2.+  1 

1611 

8 

♦  2,  *2 

717 

V 

9 

+2,+3 

282 

1  0 

♦3,-3 

306 

1  0 

♦3,-2 

306 

10 

♦  3,-1 

366 

1C 

♦3,  0 

904 

8 
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Hi-Paiy.  Codeword 


1 1000001001 
1  1000  101  11 
1 1000101 10 
110010111 
1 100010101 
1100010100 
11000 10011 
1100010010 
110010110 
1  1010  1 1  1 
1110111 
1  1010110 
1  1010101 
110010101 
110010100 
1 1101 10 
00011 
1011 
mill 
11010100 
1 1000 1G001 
110010011 
11010011 
1010 
01 
1001 
1110101 
11010010 
1 100010000 
11010001 
111110 
1000 
000001 
1110100 
110010010 
1100001111 
1  1010000 
11001111 
1110000 
1 1001 1 10 
110010001 
1 100001 110 
1100001101 
1  100001 100 
1100001011 
11001101 
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APPENDIX  B 
( Cent .  ) 


Parameter 

Frequency*) 

Coaevcrd 

length 

Bincr^Coaevord 

♦  3,*  1 

559 

9 

i  looiooco 

♦  3#*2 

252 

10 

1 100001010 

♦  3, *3 

224 

1 1 

11000001000 

ends 

20734 

4 

0011 

head  lengths 

1 

6879 

6 

111101 

2 

10896 

5 

00001 

3 

15524 

4 

0010 

4 

9706 

5 

00010 

5 

4860 

6 

111100 

6 

3480 

7 

1110010 

7 

2864 

7 

1  1  10001 

8 

2687 

7 

1110011 

9 

2990 

7 

1101111 

10 

2820 

7 

1101110 

11 

2390 

7 

1101101 

12 

2143 

7 

1101100 

13 

1399 

8 

11001 100 

14 

789 

9 

110001111 

15 

669 

9 

110001110 

16 

489 

S 

110001100 

17 

412 

10 

1100001001 

18 

359 

10 

1100001000 

19 

283 

10 

1100000111 

20 

251 

10 

11C0000110 

21 

301 

10 

1100000101 

22 

208 

1 1 

11000000111 

23 

183 

1 1 

11000000110 

24 

146 

1 1 

11000000100 

25 

91 

12 

110000000111 

26 

80 

12 

110000000110 

27 

61 

13 

1100000001001 

28 

43 

13 

1100000001000 

29 

44 

13 

1100000000111 

30 

31 

14 

110000000001  10 

31 

32 

13 

1100000000100 

32 

32 

14 

1  10000000001  1  1 

33 

40 

13 

1100000000110 

34 

25 

15 

110000000000111 

35 

38 

13 

1100000000101 

36 

29 

14 

11000000000101 

37 

18 

15 

110000000000110 

38 

12 

15 

110000000000100 

39 

22 

14 

1 1000000000100 

40 

14 

15 

110000000000101 

41-71 

207 

1 1 (♦  5  suffix) 

11000000101 

72-582 

753 

9  (♦  9  suffix) 

1 10001101 

583-2560 

116 

12  (♦  1 1  suffix) 

110000000101 

*)  Note  :  Total  of  the  eight  images  at  a  resolution  of  8x8  pels/mm  and  k“infinit 
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appendix  c 


B1CS  PAf ARETES  C0DE800H  MIH  SUPPLEMENT ABY  CODES 


parameter 

Frequency* ) 

connects 

-3,-3 

220 

-3,-2 

248 

-3,-1 

333 

-3,  0 

721 

-3,*1 

328 

-3,  *2 

382 

-3,  ♦  3 

303 

-2,-3 

285 

-2,-2 

821 

-2,-1 

1444 

-2,  0 

1767 

-if  ♦  1 

1461 

-2,  *2 

1443 

-2, *3 

472 

-1,-3 

504 

-1,-2 

1957 

-1,-1 

11884 

-1,  0 

16623 

6186 

-1,+2 

1544 

-1,*3 

416 

0,-3 

705 

0,-2 

1684 

0,-1 

17351 

0,  0 

104746 

0,*1 

16066 

0,*2 

1876 

0,*3 

918 

♦  1,-3 

372 

♦  1,-2 

1410 

♦  1,-1 

5351 

♦  1,  0 

15923 

♦  !,♦! 

8984 

♦  1  ,  +  2 

1916 

♦  1  ,*3 

694 

♦2,-3 

409 

♦  2,-2 

1  108 

♦2,-1 

1222 

♦  2,  0 

1965 

♦  2,+ 1 

1611 

♦  2, +  2 

717 

♦  2, +  3 

282 

♦3,-3 

306 

♦  3,-2 

306 

♦  3,-1 

366 

♦  3,  0 

904 

Codeword 

length 

binary  codeworo 

1 1 

1  1000001001 

10 

1  1000  101  1  1 

10 

1100010110 

9 

110010111 

10 

1  100010101 

10 

1100010100 

to 

1  100010011 

10 

1100010010 

s 

1 10y  101 10 

8 

110)0111 

7 

1110111 

8 

1 1010110 

8 

1  1010101 

9 

1 10010101 

9 

110010100 

7 

mono 

5 

00011 

4 

1011 

6 

mm 

6 

1 1010100 

10 

1 100010001 

9 

110010011 

8 

1 10  1001 1 

4 

1010 

2 

01 

4 

1001 

7 

1110101 

8 

11010010 

10 

1100010000 

8 

1 1010001 

6 

111110 

4 

1000 

6 

000001 

7 

1110100 

9 

1 10010010 

10 

1 100001111 

8 

1 1010000 

8 

11001111 

7 

moooo 

8 

11001110 

9 

1100 10001 

10 

1100001110 

10 

1 100001101 

10 

1100001100 

10 

1  10000101  1 

8 

11001101 

1  jS,r  .wnttAtt11 
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APPENDIX  C 


( Cont . ) 


Parameter 

*  1  .  4 

Frequency^ 

Codeword 

£ength 

Binary  Couewora 

^  3  0 1 1 

559 

9 

110010000 

♦  3#*2 

252 

10 

1  100001010 

♦  3#*3 

224 

1 1 

11000001000 

ends 

20734 

4 

001  1 

head  lengths 

1 

6879 

6 

111101 

2 

10896 

5 

00001 

3 

15524 

4 

0010 

4 

9706 

5 

00010 

5 

4860 

6 

111100 

6 

3480 

7 

1  110010 

7 

2864 

7 

1110001 

8 

2687 

7 

1110011 

9 

2990 

7 

1101111 

10 

2820 

7 

1101110 

11 

2390 

7 

UG1101 

12 

2143 

7 

1101100 

13 

1399 

8 

1 1001 100 

14 

789 

9 

110001111 

15 

669 

9 

110001110 

16 

489 

9 

1 10001100 

17 

412 

10 

1  100001001 

18 

359 

10 

1100001000 

19 

283 

10 

1100000111 

20 

251 

10 

1100000110 

21 

301 

10 

1100000101 

22 

208 

11 

11000000111 

23 

183 

1 1 

11000000110 

24 

146 

1 1 

11000000100 

25 

91 

12 

1  1000000011 1 

26 

80 

12 

110000000110 

27 

6  1 

13 

1100000001001 

28 

43 

13 

1  100000001000 

29 

44 

13 

1100000000111 

30 

3 1 

15 

110000000001  1  1 1 

31 

32 

14 

11000000001001 

32 

32 

14 

11000000001000 

33 

40 

13 

1100000000110 

34 

25 

15 

110000000001100 

35 

38 

13 

1100000000101 

36 

29 

15 

110000000001 1  10 

37 

18 

16 

1100000000010111 

38 

12 

16 

1 100000000010101 

39 

22 

15 

11000C000001101 

40 

14 

16 

1100000000010110 

41-71 

207 

1 1 (♦  5  suffix) 

11000000101 

72-582 

753 

9(*  9  suffix) 

1  10001101 

583-2560 

116 

12  (♦11  suffix) 

1  10000000101 

(2595) 
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APPENDIX  C 

( Cont . ) 

Codeword 

£ajarreter 

supplementary 

Ilgguency* )  _£ength_ 

Binary  Coaewori 

codes 

1 

16 

1 100C00000010100 

2 

16 

1 1 00C000  000100  11 

3 

16 

1 100C00000010010 

4 

16 

1100000000010001 

5 

16 

1  100000000001  1  11 

6 

16 

1  lOOOOOOOOOol  1 10 

7 

16 

1100000000001101 

8 

16 

1100000000001100 

9 

16 

1 1000000000U1011 

10 

16 

1 100000000001G10 

11 

16 

1100000000001001 

12 

16 

1100000000001000 

*)  Note  :  Total  of  the  eight  images  at  a  resolution  of  8x8  pels/mm  and  k=infinity 


(2595) 
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CON*  XI 7-No.  8l-E 


AZ 


CODE 

ISSUED 

HEAD 


5 

Z 

n 

n 

n 

Bl 

BZ 

JA1-B1J  «  1  <  3  ,  A2-B2  ■  4  >  3 


HEAD 


A1 

Z 

□ 

Bl 

a  z 

AZ 


CONNECT 


•  A 1  -B 1 •  *  2  <  3  ,  { A2-B2J  »  1  <  3 


EJ 

□ 

□ 

AZ 

B1_ 

□ 

Bl 


Bt-Ai  ■*  4  >  3 


END 


A1 

AZ 

Bl 

□ 

□ 

m 

END 


BL 


JA1-B1J  »  1  <  3  ,  B2-A2  *  4  >  3 


PCINIEBS 

ADVANCED 


B 


fi 


A  and  B 


A 


A 


1 


Exo-’-.v U*r-  of  the  five  code  rules 


V. ' 


:0M  XIV-Ho .  81-E 


HEAD 


CONNECT 


7  10  11  it  1 3 


Buns  compared 
ilOS-A,  .Ljne.p 

null,  J1 

Jl,  J2 
null,  K 1 

J2,  J3 
K1,  LI 
K 1,  K2 

J3,  K3 
LI,  K3 
K2,  K3 

K3,  K4 

K4,  Ml 
K4,  K5 

HI,  N 1 


Buie  Code  Issued  in  Oroer  Shown  61 op 

1  HE ID  (L*4  ,D*0)  J 

3  CONNECT  (LHS*2,8HS*0)  J 

1  HEAC  (L*2, D*5)  K 

3  CONNECT  (LHS*-1,BHS*-1)  J 

1  HEAD  (L»1,D*2)  L 

3  CONNECT  (LHS»-1,BHS*0)  K 

4  END 

5  END 

3  CONNECT  (LHS*-1,BHS*1) 

3  CONNECT  (LHS=-2, BKS= 1) 

2  HEAD  (L=4 ,D*3) 

3  CONNECT  (LHS=3,BHS=-2) 

2  HEAC  (L=1,D*2)  N 


Figure  ?.  -  Example  of  code 


X  2  X  X  t4  ** 


Buns  Coirpared 

US 

&ul£ 

Code  Issued  in  Order  Shown 

£lob 

G,  H 

1 

head 

(1*12,0*0) 

M 

G ,  L2 

4 

END 

redundant 

G 

H,  L2 

4 

END 

redundant 

H 

I.  L2 

4 

END 

redundant 

I 

J,  12 

5 

END 

J 

K,  L2 

5 

END 

X 

11,  L2 

3 

CONNECT 

(1ES*-2,BHS*0) 

L 

Figure  3  -  The  HEC  end  code  redundancy 


A 

3 


&12S 

L 

I 

J 

M 

K 


Figure  1*  -  The  HEH  end  code  redundancy 


Burs  ccirpared 

j&le 

I#  I  1 

X,  M  4 

0,  M  5 

K1,  K  1 

K1,  K  2  3 


Code  Issued  In  Order  Show: 

HEAD  (L*6,D*0) 

END  redundant 

END  redundant 

HEAD  <1*3, E*3) 

CONNECT  (IHS=0, BHS=0) 
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TABLE  1 


Total  bits 


Ful  1_ 

Resolution 

of  8x8 

Half 

Resolution 

of  6x4 

0  ms 

5  ms 

1  0  ITS 

0  ms 

5  ms 

1  0  ms 

Iiraqe  1 1 

• 

1 

K=2 

181530 

215092 

249513 

99526 

1 16349 

133C66 

K=4 

157485 

191032 

225998 

91724 

108413 

125194 

K=infinity 

13522S 

166233 

201721 

85715 

1 0 1 099 

1 17967 

.  ’ 

Iiraqe  #2 

K=2 

142434 

171219 

191544 

78776 

92949 

101936 

f 

K~  4 

111275 

140453 

163736 

67169 

81474 

91246 

I  ■ 

K=xnf inity 

80958 

1 10009 

136023 

55775 

69949 

80520 

j  •: 

•x  >v 

a  1 

Imaqe  #3 

|  •<. 

K=2 

326643 

354801 

370338 

177034 

190870 

198426 

1  r 

K=4 

264849 

293123 

311310 

153906 

167719 

176480 

it  it. 

K=inf inity 

203581 

231368 

252309 

130629 

144119 

154092 

A!  «  ii 

i  ■ 

Image  #4 

*  * 

£ 

K=2 

6^3252 

671953 

687340 

353632 

367806 

375139 

3  * 

K=4 

566162 

594515 

610054 

330009 

343976 

351238 

1  : 

K=infinity 

489000 

516358 

532182 

306975 

320345 

327593 

Imaqe  #5 

; 

K=2 

345341 

373627 

389649 

187601 

201619 

209034 

K=4  . 

285892 

314287 

332893 

165407 

179393 

187821 

' 

K=inf inity 

227191 

255328 

276414 

143652 

157437 

166843 

: 

Imaqe  #6 

K=2 

241392 

270143 

284122 

129166 

143430 

150112 

K=4 

181594 

210473 

225061 

103455 

1  17679 

124447 

K=infinity 

122617 

150766 

165889 

78014 

91837 

98690 

Imaqe  #7 

K=2 

712171 

739961 

748153 

386206 

399843 

403943 

K=4 

626546 

654635 

662932 

358465 

372104 

376268 

K=infinity 

541518 

569250 

577693 

330806 

344090 

348314 

*  ■ 

Imaqe  #8 

V 

-Sv 

K=2 

325243 

354418 

359  130 

175415 

189946 

191999 

K=4 

249604 

280180 

285640 

144560 

159702 

161967 

K=infinity 

173851 

205589 

211717 

113450 

129143 

131720 

**' 

(2595) 
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Compression  factors 
(pels/bits) 


Full  Resolution 

of  8x8 

Half  Resolution 

Of  8x4 

0  ms 

5  ms 

10  ms 

0  ms 

5  ms 

1 0  ms 

Iiraqe  #1 

K=2 

20.257 

17.096 

14.737 

18.473 

15.802 

13.615 

K=4 

23.349 

19.249 

16. 271 

20.045 

16. 959 

1  4.t>86 

K=infinity 

27.192 

22. 121 

18. 229 

21.450 

Id.  186 

15.58c 

Image  <2 

K  *2 

25.817 

21.477 

19. 198 

23.339 

19.781 

! 8. 037 

K*4 

33.046 

26.  181 

22.458 

27.373 

22.567 

20. 150 

K»infinity 

45.421 

33.426 

27.034 

32.964 

26.285 

22.634 

{mage  #3 

K=2 

11.258 

10.364 

9.929 

10.386 

9.633 

9.266 

K=4 

13.884 

12.545 

11.812 

11.946 

10.962 

10.418 

K*infinity 

18.063 

15.893 

14.574 

14.075 

12.757 

1  1.932 

Image  #4 

K«2 

5.717 

5.472 

5.350 

5.  199 

4.999 

4.901 

K=4 

6.495 

6.  185 

6.028 

5.571 

5.345 

5.235 

K*infinity 

7.520 

7.121 

6.910 

5.989 

5.739 

5.612 

Image  #5 

K*2 

10.648 

9.842 

9.437 

9.801 

9.119 

8.796 

K*4 

12.862 

11.700 

11.046 

11.  116 

10.249 

9.789 

K*infinity 

16.185 

14.402 

13.303 

12.799 

11.678 

11.020 

Image  #6 

K=2 

15.233 

13.612 

12.942 

14.234 

12.819 

12.248 

K*4 

20.249 

17.471 

16. 339 

17.772 

15.624 

14.774 

K=infinity 

29.989 

24.390 

22.  167 

23.567 

20.020 

18.630 

Image  #7 

K*  2 

5.163 

4.969 

4.915 

4.761 

4.598 

4.552 

K=4 

5.869 

5.617 

5.547 

5.  129 

4.941 

4.886 

K=infinity 

6.791 

6.460 

6.365 

5.558 

5.343 

5.279 

Image  10 

K*2 

11.306 

10.375 

10.239 

10.481 

9.680 

9.576 

K=4 

14.732 

13. 124 

12.873 

12.719 

11.513 

1  1.352 

K*infinity 

21.151 

17.886 

17. 368 

16.206 

14.237 

13.958 

(2595) 
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TA3LE  3 


Transmission  times 
( seconds /Dace)*) 


Fgll_ 
0  ms  i 

Resolution 
5  ms 

_of  8x8 

10  ms 

Image  #1 

K=  2 

K=4 

K=inf  inty 

37.82 
32.81 
28.  17 

44.81 

39.80 

34.63 

51.98 
47. 0d 
42.03 

Image  #2 

K=2 

K=4 

K=in£inxty 

29.67 
23.  18 
16.87 

35.67 

29.26 

22.92 

39.9  1 

34.  1 1 
28.34 

Image  #3 

K=  2 

K=4 

K*infmity 

68.  C5 
55.  18 
42.41 

73.92 

61.07 

48.20 

77.15 

64.86 

52.56 

Image  #4 

K=2 

K=4 

K=infinity 

134.01 

117.95 

101.88 

139.99 

123.86 

107.57 

143.20 

127.09 

1  10.87 

Image  #5 
.  K=  2  ~~ 

K=4 

K=infinity 

7  1.95 
59,56 
47.33 

77.84 

65.48 

53.  19 

81.18 

69.35 

57.59 

linage  #6 

K=2 

K=4 

K=inf inity 

5C.29 

37.83 

25.55 

56.28 

43.85 

31.41 

59. 19 
46.89 
34.56 

Image  #7 

K=2 

K=4 

K=infinity 

148. 37 
130.53 
112.82 

154.16 

136.38 

1 18.59 

155.87 

138.  11 
120.35 

Image  18 

K*2 

K*4 

K=infinity 

67.76 

52.00 

36.22 

73.84 

58.37 

42.83 

74.82 

59.51 

44.11 

)  Note  :  Based  on  a  transmission  rate 

of  It 800  bps 

Half 

Resolution 

of  bX4 

0  ms 

_  5  rr.s  _ 

_  J  0  ms 

f 

20.73 

24.24 

27.73 

■ 

19.11 

22.59 

si  6  •  0 

17.86 

21.06 

24. 5b 

16.4  1 

19. 3b 

2  1.24 

13.99 

1b. 97 

19.01 

*  4 

■A 

11.62 

14.57 

16.78 

4 

i  4 

I  i 

36.88 

39.76 

4  1.34 

i  u 

32.06 

34.94 

36.77 

i 

27.21 

30.02 

32.  10 

i  i 

s  ». 

i  4 

73.67 

7b  .63 

78.15 

« 

s 

68.75 

71.66 

73.17 

i 

63.95 

66 .74 

68.25 

39.08 

42.00 

43.55 

ft 

34.46 

37.37 

39. 13 

29.93 

32.80 

34.76 

26.91 

29.88 

3  1.2  7 

•V 

s 

21.55 

24.52 

25.93 

16.25 

19.  13 

20.56 

80.46 

83.30 

84.15 

• 

74.68 

77.52 

78.39 

68.92 

71.69 

72.57 

36.54 

39.57 

40.00 

• 

30.12 

33.27 

33.74 

23.64 

26.90 

27.44 

(2595) 
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TABLE  4 


Average  number  of  bits  per  ins 


Full_ 

Resolution 

of  8x8 

Half 

Resolution 

Of  8x4 

0  rrs 

5  ms 

10  ITS 

0  ms 

5  ms 

10  ms 

All  Images 

K*2 

364751 

393902 

409974 

198420 

2)2852 

220459 

K=4 

30  54  26 

334837 

352203 

176837 

191308 

199333 

K=infirity 

246743 

275613 

294244 

155627 

169752 

176217 

Average  compression  factors 


Full  Resolution  of  8x8  Half  Besolution  of  8x4 


All-Usages 

0  ITS 

..5,-is,.§- 

_12_2S 

0  ms 

10  ms 

K-2 

10.081 

9.335 

8.969 

9.266 

8.638 

8.340 

K=  4 

12.040 

10.982 

10.441 

10.397 

9.611 

9.224 

K=infinity 

14.903 

13.342 

12.497 

11.814 

10.831 

10.317 

TABLE  6 


Average  transmission  times 
(seconds /page)*) 


Full  Resolution  of  8x8  Half  Besolution  of  8x4 


0  ITS 

5  ms 

10  ms 

0  ms 

5  ms 

10  ms 

All  Imaqes 

K=2 

7  5.99 

82.06 

85.41 

41.34 

44.34 

45.93 

K=4 

63.63 

69.76 

73.38 

36.84 

39.86 

41.53 

K=infinity 

51.40 

57.42 

61.30 

32.42 

35.37 

37.13 

*)  Note  :  Based  on  a  transmission  rate  of  4800  bps. 


Note  :  The  figures  in  the  0  ms  columns  include  only  code  bits  and  return  to  control  bi 
These  results  represent  the  rav  efficiencies  for  Group  3  machines.  The  figures  in  the 
5  ms  and  10  ms  columns  contain  code  bits  plus  bits  for  start  of  message,  fill,  EOL, 
and  return  to  control. 
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TITLE:  Correction  and  Addition  to  the  AT&T  Proposal  for 

Two-Dimensional  Facsimile  Coding  Scheme,  submitted 
March  28,  1979. 


1.  Change  the  binary  codeword  for  the  head  length  of  39 

in  Appendix  C  as  follows: 

Was:  110100000001101 

Should  be:  110000000001101 

2.  Add  the  following  to  section  2.2.6,  Resynchronization. 

In  Group  3  machines,  resynchronization  is  required 

upon  detection  of  any  of  a  number  of  error  conditions. 

Among  these  are  the  following. 

(a)  A  HEAD  code  occurs  and  the  corresponding 
run  extends  to  the  right  of  the  image  line 
of  for  example  1728  pels. 

(b)  A  CONNECT  code  occurs,  and  the  corresponding 
run  extends  to  the  left  of  and/or  to  the 
right  of  the  image  line. 

(c)  A  HEAD  or  CONNECT  code  occurs,  and  the 
corresponding  run  overlaps,  or,  is  not 
offset  by  at  least  one  pel  from  the  adjacent 
run,  if  any,  on  the  left  in  the  same  image 
line. 

(d)  A  CONNECT  code  occurs  and  there  is  no 
candidate  run  in  the  previous  line  to  which 
a  connection  can  be  made. 

(e)  A  CONNECT  code  occurs  and  the  computed  right 
end  of  the  corresponding  run  precedes  the 
computed  left  end  of  the  run.  This  occurs, 
for  example,  if  a  run  of  three  pels  in  one 
image  line  is  to  connect  to  a  run  of  one  pel 
in  the  next  line  with  a  CONNECT  (LHS  =  1, 

RHS  =  -1) ,  but  the  connection  is  erroneously 
made  to  a  run  of  one  pel  in  the  first  image 
line. 

(f)  An  END  code  occurs,  and  there  is  no  candidate 
run  in  the  previous  line  to  which  the  END  code 
may  apply. 
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(g)  An  unassigned  supplementary  code  is  detected. 


Upon  detection  of  an  error  condition,  the  decoder  searches  J 

for  the  next  EOL  code  of  eleven  zeroes  and  a  1.  The  code  I 

between  the  detected  error  and  the  EOL  code  is  bypassed,  and  ' 

any  remaining  portion  of  the  image  line  under  construction  is  j 

filled  wi£h  the  corresponding  portion  of  the  previous  scan  ] 

line.  This  permits  the  possibility  that  the  initial  portions  4 

of  the  subsequent  lines  up  to  the  next  restart  point  are  1 

faithfully  captured.  '  J 
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APPENDIX  F 


SUBROUTINES  "WHICH  ARE  COMMON  TO  ALL  ALGORITHMS 


PROGRAM  NAME  FUNCTION  PAGE 

REDTAP  32  .  .  .  .Read  input  image  tape . F-1 

CODELN . Line  Code  Subroutine  of  "Encode1*  Subroutine  .  .  F-2 

STATS . Computes  Statistics  of  Coded  Lines . F-3 

BLOCK  DATA  .  .  .  Initializes  Packing/Unpacking  Masks  .  F-l* 

MI2B  .  Packing  Subroutine  . F-5 

II4.B . .Unpacking  Subroutine . . . F-6 

ERRMES . Error  Measurement  Subroutine  .  . . F-7 

WRITAP  32  .  .  .  .Converts  binary  data  to  Input  Format . F-9 

CONVERT . Converts  binary  data  to  IBM  Printer  Format.  .  .  F-10 


"frY  **'  i 


ST  Am 

c 

c 


CF  OC-IC  JPR.NT  PROGF.A  1 
p~  Ou R  \  M  REJTAP32 


VJ  V\.LrtOJir  1L  J 

DSN  *M  £=00031 .RHDTAP.FQKT 


1  SO 

no 

30  .7 
316 

315 


♦  00 


♦  10 

♦20 
♦  50 


♦  70 

♦60 

♦30 


500 
510 
60  0 
700 


IMPLICIT  I  ITS GCA  (  *-  Z ) 

IN"  i£K  P£L3UF(  1  500  )  ,9Tt)UF(60) 

0\Tm  ’EL  RAX  .PSLFIL. LT  F  IL.TEKM/i 728, 1 , 2.5/ 

I  nLNCT=0 
CONTINUE 
03  1  JO  1  =  1.60 
0  T  t3JF  <  I)  =  0 
10  =  1 
IF=  250 

7:aj(^3.F  IL  ,30O.END=5JC  )  IC.J 
F0R4AT(23 J  !♦> 

J1  =J 

IF (  J  . G T»  2  5U )  GC  TO  315 
J 1 Di  =  J ♦ID— 1 

R£  40  ( P  ELF  IL  .  3  JO  )  (  P  EL3UF  (  K) ,  K=  I  •">,  J  I  D1  ) 

GO  TO  400 
CONTINUE 

RSAD(P£Lr  IL  .300 )  (?£L3UF(K) , K= I  0 , I F ) 

10= I F ♦ 1 
I  F  =  I  r  ♦  250 
J=  J-250 

I F ( J .00.0  >  GO  TO  ♦OO 
GC  TO  31  o 
CO  NT  IN  UE 

IF (INLNCT.GT.2J0)  GO  TO  450 
rfRITEt Tifctf, 410)  IC.J1 
FORMAT  (5X.I4.5X,  lb) 

WR  I TE ( TE A  4,420)  (  ’£ LBUF  (  K  )  ,  K=  1  «  J1  ) 

FQRM4T(2X,20(  14. 2X)  ) 

CONTINUE 
OT£LP= 1 
00  450  1=1, J1 
RUN=PCL3UF(  I ) 

IF  (AJN  .£Q  .0  )  GC  TO  70 0 

00  470  K= 1 , RUN 

CALL  M  I20( I C.QT3UF.0TELP, 1 ) 

OT  ELP  =  0T£LP4l 

IF(JTELP. GT.PELMAX)  GO  TC  480 
CO NT  IN Jc 

ic=mou(ic*i  ,2) 

CONTINUE 
CONTI NJS 
INLNCT=I  NLNCT41 

«*IT£( OTF IL )  INLNCT ,  PSLMAX. OTBUF 
GO  TO  150 
CO  NT  IN  US 

WRI Tfc' ( TER  M,  51 0  )  INLNCT , I NLNCT 

FORMAT ( • OLI NES  WRITTEN  =',I6,»;  LAST  LINE  NUMBER  = • , 16 ) 
STOP 

CONTINUE 
STOP  600 
CONTINUE 
STOP  700 
END 

END  OF  DCEC  UPRIMT  PROGRAM  LINES  PRINTED= 


59 


F-1 

.  1  i . 


..is, 

$ 


-I 


\% 


•51 


'.■Jill  f, 


UNCLASSIFIED 

START  OF  OCEC  JPRINT  PROGRAM  D SNAME=0003 1 • CCDELN. FORT 

SUBROUTINE  COOELNjt  LENGTH,  POL  AN.  CCELCT  .  CODATA  ) 

IMPLICIT  INTEGER!  A-Z) 

CO  MMON/BUFF/PELcJUF  (60,2),  COBUF  (  240)  ,OTBUF(60»2)  » 

*  STFBUFC  240  )  ,  STAT(EOOO) 

COMMGN/HUFF/CODE( 3 • 92*  2 ) . COO£RD( 3, 9  > 

.  COMMON/ERAY /ERRORS!  2500) 

C 

c********************************  BEGIN  PROGRAM  *************** ******** 

C 

C  INITIALIZE  MAKE  UP  CODE.  MAKE  UP  CODE  LENGTH 
C 

MC0D£*0  . 

MLEN3*0 

C 

C  CHECK  INPUTS  s 

C  | 

IF  (PQLAR.LT *1  .OR. POLAR  ,GT.2)  CALL  EXIT  i 

IF (LENGTH. LT.O. OR. LENGTH. GT. 1728  )  CALL  EXIT  4 

C  ! 

IF  (LENGTH.LE.63)  GO  TC  10  ! 

C  j  *i 

C  CALCULATE  MAKE  UP  CODE  INDEX,  CODE,  LENGTH  1 

C  AND  WRITE  TO  CODE  LINE  S 

C  ** 

INOEX=LSNGT  H/64+64  !  ,t 

MC00c*C3DE( 3. INDEX, POLAR)  ;  s 

ML  ENG=CDD2(  1 ,  INDEX  ,  POLAR  ) 

CALL  MI23  (MCODE,  COBUF,  CDELCT 4-1  ,MLEN.)  < 

CDELCT«COELCT  +MLENG 

CDDATA^CDDATA+MLENG  ; 

C  4 

C  CALCULATE  T  ER  4 INATING  CODE  INDEX,  CODE,  LENGTH 
C  AND  ADD  TO  CODE  LINE  . 

C  .• 

10  CONTINUE 

INDEX*  MOD  (LENGTH,  t}4)*l  . .  .  . . 

TCOOc*CD3E( 3, INDEX, POLAR) 

TLENG*CODE( 1*1 NDEX , POLAR ) 

CALL  MI2B(TCODE,CDBUF,CDELCT+l ,TLENG) 

CD2LCT=CDEL  CT  +TLENG 

CDDaTA*CDDATA4-TLENG  ... 

c 

RETJRN 

END  "  . 


ono  non  nno  non  n^n  oo«"»  o 


SUBROUTINE  STATS t  LENGT  H« I NLNCT  «  D  I AG ) 

IMPLICIT  I’TYeCEM  A-Z) 

INTEGER  MTT  (5)»ITT(2»5)» LENGTH ( I NLNCT ) 

He  A*  STT  (  2»  5)  *  SUM*  SUM3Q 
LOGICAL  DIAS 

**********************  pji_E  DEFINITIONS  ******^************* 

CCW-tON/®lLiS/TERM,LPFlL.PELFlL.OTFIL.ePFIL 
DATA  MTT/O. 24,48. 96, 192/ 

********** *************deg  IN  PRC gram  **********  ************************ 

00  3  30  1*1.5 
ITT(  1  »  l ) *10000 
I TT(  2,I>*0 
SUM*0. 

SUMS9*0. 

DO  100  0*1, 1NLNC T 

FIND  FILLED  LINE  LENGTH 

LEN»MAX0<LSNGTH(J),MTT(I>  ) 

IF(DlAG)  4R IT£( TERM  »  50 )  LEN 
50  FORMAT  (1 8) 

FIND  MINIMUM  LINE  LENGTH 


UNCLASSIFIED 


unclassified 


I  TT(  1 » I )  *  MI  N0(  LEN,  I  TT  ( 1  ,1  )  ) 

FIND  MAXIMUM  LINE  LENGTH 

ITT ( 2  ,  I )  *  M.<*X0  (LEN,  ITT  (2,1)) 

FIND  SJM  OF  LENGTHS 

SU4*3UM+FLOAT(LEN) 

SUMS  U*  SUMSQ+  (  FLOAT  {  LEN  )  )**2 
100  CONTINUE 

FI  NO  SAMPLE  MEAN  AND  STANDARD  DEVIATION 
STT ( 1 . I ) *  SUM/FLOAT ( I NLNCT > 

STT{  2,I)*SQRT((SUMSQ~(SUM**2)/FLC/T( INLNCT ) )/FLCAT( INLNCT-1 )) 

300  CONTINUE 
C 

MR ITE ( LPF IL.400) (I TT (1,1). 1=1*51 
400  FORMAT  ( 

*•0  MINIMUM  TRANSMISSION  TIME  (4800  BPS)*// 

'  '  *•  COOED  LINE*/  '  “  * 

*»  LENGTH  0  MS  5  MS  10  MS  20  MS  40  MS'/ 

*•  STATISTICS:*// 

MINIMUM* ,10X,5( 18)//) 

WRITE!  LPF  1L,410)(ITT(2,I  )  .1  =  1  ,5) 

410  FORMAT! 

*•  MAXIMUM*  ,  1 0  X  •  5  (  18)//) 

WRITE(L*FiL,420) (STT( 1 . I ) ,1=1 ,5) 

420  FORMAT!  .... 

**  SAMPLE  MEAN*  ,9X  ,5(F8.£)//) 

WR  ITS (LPF IL, 430) (STT (2, I >.1  =  1,5) 

430  FORMAT ( 

*•  STANDARD  DEVIAT10N*,2X,5(F8.2)  ) 

C  -  . 

RETURN 

END 

0  -  * . END  OF  DCEC  UPR1NT  PROGRAM  -  - LINES  PRINTED*  200 


r 

r  •  -■ 

* r 


JT^WFW”*^S3^  ^PSIHK3^7*' 


|lip  IjK  j  K«fW-  "'T'W'W1 


1 


C 

c 

c 

c 


6L  .T.  ■*.  34  T  A 

IMPLICIT  i>4Ti;}C.^  (A-ZJ 


C  J  4rtON  /3329I  T/KIal  T('32  >  ,KZB1  T(32),Ll3IT<32).LZeiT(32) 


^  TA  X  13 1  T  / 


& 

L 

& 


5- 

& 

& 

fi. 

& 

r. 


& 

& 

& 

& 

& 

& 

& 

6 


END 


Z60 000000, Z 40000000, Z203000C0.Z10C00C0C, 
Z 0300000 0, Z 04 0000 00  , Z 0200 0000 , ZOl  000000 , 
ZOOdOOOOO, Z 004000 00, Z 0020CCC0, ZC01  000 cc, 
ZOO 0600 00, Z0OC40O0G, Z00020000 .ZOOOICOOO, 
Z 00 00600 0,Z 00004000 ,Z 000 02000 ,Z0 0001 000, 
Z ODD >0600, Z0000040C , Z 30 0 00 200 , Z 00000 1 C C , 
ZO 000008 0, Z 00000040 , Z 000 0002 0 , Z 000 0 0 0 1 0 , 
ZOOOOO  CO  3 , Z00O000  04 , ZOOOOOOO ? , Z 0000 0 00 1 / 


DATA  KZdIT  / 


Z7FFFFPF  F»  Z3FFFFFFF , ZDFFFFFFF#  ZEFFFFFFF, 
ZF7FFFFFF  ,  ZFi3FFFF  FF  ,  ZFDFFFFFF  ,  ZFEFFFFFF  , 
ZFF7FFFFF.ZFFBFFFFF, ZFFDFFFFF.ZFFEFFFFF. 
ZFFF7F=FF, ZFFFBFFFF, ZFFFDFFFF , ZFFFEFFFF, 
ZFFFF7FFF.ZFFFFBFFF, ZFFFFDFFF, ZFFFFEFFF, 
ZFFFFF7FF, ZFFFFFBFF, Z cFFFFOFF , Z^FFFFEFF , 
ZFFFFFF7F, ZFFFFFFBF,  ZFFFFFFCF, ZFFFFFFEF, 
ZFFFFF-F  7  ,  ZFFFFFFFB  ,  ZFFFFFFF'D  ,  ZFFFFFFFE/ 


DA  Ta  L  13  1  T  / 


Z30J00O00, ZCOOOOOOC ,ZEOOOOOOO 
ZF3000CO O.ZFCOOOO 00 ,ZFEO 00000 
ZFF30000 0, ZFFCO 0000, ZFFEO 0000 
ZFFFdOOOu , ZFFFCOOOO . ZFFFEOOOO 
ZFFFF8OOO.ZFFFFCO0C , ZFFF^EOOO 
ZFFFFF30  0 , ZFFFFFCOO , ZFFFFF500 
ZFFFFFF 80, ZFFFFFFCO , ZFFFFFFFO 
ZFFFFFFF9 , ZFFFFFFFC, ZFFFFFFFE 


DhTA  LZ6IT  / 


Z7FFFFFFF, Z3FFFFFFF , Z 1 FFFFFFF 
Z07FFFFF F , Z  03FFFFFF , Z  01FFFFFF 
Z007FFFFF, Z0C3FFFFF, ZOC 1 FFFFF 
Z0007FFFF.Z  000  3FFFF .Z0001FFFF 
Z0ou07=FF, ZG00C3FFF, Z0C001FFF 
ZOOOOO 7FF , ZC00003FF , Z000001FF 
Z0000007F  »Z0000003F • Z000G0C1F 
Z00000007,Z00000003,Z00000001 


»ZF 0000  OOC , 
.ZFFf'OOOCC, 
tZFFFOOOOC , 
, ZFFFFC  0  00, 
, ZFFFFFOOO  , 
,  ZFFFFFFOC , 
.ZFFFFPFFO, 
,  ZFFFFFFFF/ 


, ZOFFFF  FFF , 
.ZOOFFFFFF, 
, ZOOOFFFFF , 
, Z OOOOFFFF  , 
•  Z  3000  OFFF  , 
, ZOOOOO  OFF , 
•ZOOOOOCGF, 
.ZOOOOOOOO/ 


f 

% 

-.tl 


UNCLASSIFIED 


F-a 


L,.„. 


r-‘<  ^ ,  fr1  -,f 
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*******  U2J  EXECUTE  ******* 

JRm*J:J*i48-2 
N.3T*Nd 

JREaJRH3/ 32*1 
JR3aM03(  J.2H3.32M-1 
NIRa^INDtHdTt JRQ) 

LVAL=I VAL 
J I  't=  32-M3R 

J=LaND(LVAL.LZBIT{  JIM)  ) 

K*  32 -JR J 

K~^2-  JlV*  A,'IO{ltJA(Jf;*>  *LZaiT{  JRB»  ).SHFTL£  J.K)  ) 

LV  V_=SHFTR(LVAL,K) 

NUT=N3T-JRt3 

„  199  IF(  4dT  t  300.390.200 
C 

200  I3AURE)*LRE 
JRE=JRE-1 
t-RE^LVAL 
LVAL=0 
N8Taf48T-32 
GO  TO  199 
C 

30  0  JI  ‘4*— NBT 

VS?7L;^(.LPIiLAN0(IBA(JR-,»LIDIT<'»^>>> 

3  40  IdA(  JRfe)*LRE 
RETJRN 
C 

E  NO 


i 


fc; 


1  *W 


UNCLASSIFIED 

START  OF  OCEC  UPRINT  PROGRAM  DSNAME=D0031 .143 .FCRT 

C 140 

***  INTEGER  FUNCTION  14 B( I 8A . JB. NB) 

IMPLICIT  INTEGER  <  A-Z  ) 

01  MENS  ION  I 9A(2 ) 

C 

C*******  I4B  RETURNS  AN  INTEGER  VALUE  FOR  THE  BIT  STRING 
C  STARTING  AT  THE  JQ-TH  BIT  OF  ieA 

C  AND  CONSISTING  OF  NB  BITS. 

C 

c«****4*  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  /532BI T/MASKI 32  ) » C QMASK (32)»LI8IT(32)»LZ0IT(32) 

INTEGER  MASK. COMASK  .LI  BIT «LZBIT  . 

C 

C*******  148  EXEtUTE  ******** 

C 

IFINB-l)  10.30.20 
10  STOP  10 
20  CONTINUE 

JRH8*JB*N8-2 

NBT=sMIN0(N8.32) 

JRE*JRHB/32+I 
JR3=M00<  JRH8,  32)+l 
N3RsMl NO ( N3T • JRB) 

Jt.**32-N3R 

C 

C  SHIFT  RIGHT  32- JRB  BITS  AND  PUT  IN  ZcRCS  ON  LEFT 
C  ....  -  -  - 

U*IflA( JRE ) 

K*32— JR8 

I43aLANDI LZBIT(UIM) »SHFTR( J.K)  )  -  --  - 

C 

C  CALCULATE  NUMBER  OF  BITS  REMAINING  IN  LEFT  PORTION  IF  ANY 
NBRaMBT-NBR 
IF  (NBR  «L£  .0  )  RETURN^ 

C  IF  LEFT  PORTION  EXISTS.  SHIFT  LEFT  TO  LINE  UP  WITH  RIGHT 
C  PORTION  AND  »0R»  WITH  RIGHT  PORTION 

c 

J*LAND(I8At JRE-1 ).LZBIT( 32-NBR) ) 

K3*32— UlM 

X  40*LOR(  1 48#  SHFTL  (  J  »K }  )  . 

RETURN 

C  BIT  STRING  HAS  ONLY  ONE  BIT  . 

30  CONTINUE 
.  .  _  I4B=*0 

JBINDa  <JB-1  )/32+i .  . . . 

MSKI NO— JB— ( JB I NO— I ) *32 

IF <LANO( MASK( MSKI NO ) »  2  BA { JBIND ) ) .EQ.MASK( MS KINO ) )  I4B=1 
RETURN 
C  EWD 


P-6 
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SUBROUTINE  ERRMES(  3EL3UF« QTBUF .PELMAX  .  VRE S.ERRCNT  ^ 

C  wmmmmrn* 

IMPLICIT  IN TEGER(A-Z) 

REAL  S3F 

C*******  LABELED  COMMON  /G32B1T/  *******  ..... 

C 

COMMON  /G32  BIT/MASK(  32  )  *  COMASK  (32)*LI81'T(32)»LZ8  27(32) 

INTEGER  MASK. CUMASK. LI  BIT. LZBIT .  -  -  -  - 

C 

£***********************  file  definitions  ******************** 

c 

CCMMQN/FI^.£3/TERM»LPFI  Lj  PELF  I C*  OTF IL.  ERFIL 

C  DIMENSION  PEL3UF(60),  OTBUF(60V~ 

CO  MMON/LOGI C/SEARCH . DI AG 
LOGICAL  SEARCH.DIAG  . 

c 

C***************************  BEGIN  PROGRAM  ***************************** 

c  '  "  '  '  '  . . 

REMIND  PELFIL 

REMIND  OTFIL . - . . ._  ..  .  . . . 

ERRORaO 

OTELW=(RELMAX*32-I ) /32 
OTlNCT*0  . 

READ  AN  ERROR  FREE  LINE 

100  CONTINUE 

READ < PELF IL.END=600.ERR= 800)  INLNNC  * INELCT .PELBUF 
IF ( M0D(1 NLNNO-1 *VRES)«NE.O)  GO  TO  100 
C 

C  READ  AN  ERR  OR— CORRUPTED  LINE  . . . 

C 

200  CONTINUE 

RE  AD  (  OTFJ  L  *  END*5  0  0  .  ERR  *8  00  )  OTL  NNO  .  OT  ELCT  ,  OT  BU  F 
OTLNCT*OTLNCT*l 


UNCLASSIFIED 


U(Nt.L.Mi>D  .1  r  1C.U 


300  CJNTIJUc 
C 

C  CJUNT  0 1 FPER  £'JC  ZS  BETWEEN  TRANSMITTED  AND  RECEIVED  LINES 
C 

DC  450  I  ■=  1  t  OTfcL  W 

IF ( UT JUF (  I  )  •EQ«PCL5UF(  I  )  )  GO  TC  450 
IF  {.NOT.  JIAG)  GO  TC  420 

WR  I7E( TERM, 4l D )  IMLNNO *  GTLNNC • I  ,PCL3UC ( I )  .OTBUF  <  I  ) 

410  FORMAT  <3  I  6,2212  ) 

420  CONTINUE 

DC  440  J=  l  .  32 

IF  < I48<3T3  JF< I ) , J,1  ) .NE. I4B ( PEL  BUF (I  )  *  J* 1  ) )  ERRCr=SRRCR+l 
44  D  CONTINUE 
450  CONTINUE 

IF (OTLNNU— I NLNND)  200.100,500 
C 

C  ERROR  LINE  NUMBER  GREATER  THAN  GOOD  LINE  NUFC'F.; 

C  COUNT  DIFFERENCES  BETWEEN  GOOD  AND  ALL  WHITE  LINZ 

C 

50  0  CONTINUE 

DO  550  I  =  i,  OT  EL  W 
I F  (  Jct_  8UF  (  I  )  •  SO •  0  )  Go  TO  550 
IF  <  .NOT.  J  IAG)  GO  TD  520 

WRIT i { TER  4*41 0 )  I NL NND , OTLNNO, I , PEL  BUF (  I  ), CT8UF(  I ) 

520  CONTINUE 

00  540  J=i,32 

IF  (  I  40  (  =EL3UF(  I  )  ,  J  ,1  )  .  ME  .  0 )  £Rf  CR=ERRCF*1 
540  CONTINUE 
550  CONTINUE 
C 

550  REAOC^ELF II ,6ND=630 ,ERR=800 )  I  NL  NNO  .  INELCT  .  =>EL  BUF 
IF (MOO! INLNNO-1 , VRES) . NE  . 0)  GO  TC  530 
C 

GO  TO  300 
C 

C  CALCULATE  ERROR  SENSITIVITY  FACTOR 
C 

600  CONTINUE 

cSF=0.  ‘  “  •  •  .  ’ 

IF (cRRCNT  «L  S*  01  GO  TC  650 
Z3F=FLQAT (ERROR I/FLCAT  < ERACNT  > 

650  CONTINUE 
C 

WRITE!  LPFJL.700)  ERROR . ERRCNT , E5F , OTLNCT 
700  FORMAT  CO  NUMBER  OF  INCORRECT  PELS  =»,I10/ 

*  • 3  NUMBER  OF  BITS  IN  ERROR  TRANSMITTED  =',110/ 

•  *  *  0  ERROR  SCNSITI  VITY  FACTOR  =*,F12.4/ 

*  *  0  TUT  AL  NUMBER  OF  OUTPUT  LINES  PROCESSED  =  *,I8) 

C 

RETURN  ■  * 

800  CONTINUE 
■  STOP  BOO 
END 


P-8 


jN.  LA  3  3  IF-  I  Z3 


LEVEL  "I 


.1.  T2  =  7')!  76 


«  H  ji)A 


1  'i-’u  r.  it  int 2  j :m  i 

-r<Ti.02-'.  PcX.i'.U-_U„-L..ll.J£  > 

2  \T  A  P7L  VAX  ,  P r.Lf-  I  L .  07  F  I  -  ,  TE  <M  /  1  7 3  =  .  .  ,  _  ,  :>/ 


lc\31*N  Pr.  0.3mA  ■*** 


-r'",  *  iif-z.* 


...  2*.. 
2  4 
)  J2S 
36 
i  a  7 

v  ia 

oozr- 

3.13  0 


ru.ncT*  ■ 

1.5;  CONTINUE  ‘  " 

•) :  i  j.  i  =i  .60 

_J _ 3 .~L 3  LF  t  I  )=~ _ _ _ 

P:AC('>2LFIL.Ein=5>'  .Cf.7  =  <)  .)  1NLNNC.  .  1  ..ELC  T  .P2L0UF 

I  -1LMCT  —  I  NLNCT  + 1 

IC=  I  4o(PcLt3UF-.i.-t-»  -  -- 

p  -;u  a  r=  i ; 

j=i 

JO  2J.I  1=1, PEL  MAX 

_ diL=.  14SL<  eEL.'JJLEj  I  .1) _ _ 

IFIOEL.CE.POLA-O  3C  TC  IS. 

OTPUFI J) =  AUN 

J=JF  1  - - - - - 

RUN=1 

PC  L  W-  1CC(  FCL  \R  +  1  .2  ) 

07  7C  3)0  - - 

is  cunt  inu 2 

_ dAd±=RfiJ±l . .  . . 

2 JO  ClNTINJC 

OTC’Ur  (  J)=KUN 

IF=2  5- 

w-U  TE(  JTFIL.3  '.<)  IC.J 

3T!7)"F7RM  ATt'OTP  T4  7 - 

J1  =  J 

—X-Ls-Je  i  ■uaia.2.5dJ--g j.  xo-ixs _ _  . .  ...  _ 

Ji3i=j+rc-i 

W7I TE<  JTFIL.3'1)  (0T9UF ( K )  , *= I  0 , J I C 1  > 

GH  7Q--4..T0. - 

215  CCNTINUr 

*RITi(  DTFIL  .2  )  1)  (CTbLr  (  K)  .K=i  D,  I «-) 

—  -ic=-if+: - - - 

IF=IF+253 

_ j=j-  ggi _ _ _ 

iF(j.ii.:i  oc  t:  4:j 

■30  TO  .316 

—  40  v  CONT  JUUC - -  - 

7  WPITE(7=FM,413  )  IC.Jl 

41  FOU.MATISX  ,1  4 ,5X.  I  6) 

c - -wr!rTctTE?Mi,4  2-'r  (  oTsurc  ■<: 7  tk=i  ,jd 

42  C  FORMAT (2X.2 ) ( I  4  »  2  X ) ) 

_ <iQ_xa  .Ji.sfl _ _ _ _ _ _ 

5  *  CONTINUE 

WRI TE<TESM,51  ')  I NLNCT, INuNnO 

■  for^ato1  ol iw&s-wr- i hsh-s-1-, ib.' ;  lal-t  line  number  **.u. 

STOL’ 

b  •  CONTINUE 

- STOP  67 — - - 

END 


- fa? — 


LNCL^SEIFIcO 
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UNCLASSIFIED 


START  OF  JCEC  UPRINT  PRC  GRA  1  D SNAME=0003 1 . CONVERT .FORT 

PROGRAM  CONVERT 

THIS  PROGRAM  CONVERTS  BINARY  FORMAT  USED  GY  COMPRESSION 
ALGORITHMS  TO  THE  FOLLOWING  DINARY  FORMAT: 

1726  SITS  (216  BYTES)  PER  RECORD « 

EACH  LINE  OF  172S  PE_  S  BECOMES  ONE  RECORD 

IMPLICIT  INTEGER(A-Z) 

INTEGER  PEL9UF (60) .QT3UF(54) 

EUUIVALENCE  ( PEL3UF( 1  )  .CTBUF ( 1 ) ) 

INLNCT=0  . . . .  .  •  ■  • 

100  R£AD(  I  .E^O*  500* ERR*  600)  INLNNO  » I  NELCT  *PELDUF 
INLNCT  =INLNCT  +1 
WRITE( 2,ERR=700)  OTBUF 
GO  TO  100 

500  CONTINUE 

*RIT£(5,510)  INLNCT.  INLNNO 

510  FORMAT  ( •  LINES  WRITTEN  =»»I6.»J  LAST  LINE  .NUMBER  =  »  »  16  )  •  -  ■ 

STOP 

600  CONTINUE 
STOP  600 
700  STOP  700 

END  .  ... 

0  END  OF  DCEC  UPRINT  PROGRAM  LINES  PRINTED*  26 
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COMPUTER  PROGRAM  CODE  LISTING 
JAPAN  ALGORITHM 


UNCLASSIFIED 


START  OF  DCEC  UPR INT  PROGRAM 


DSNAME=D0031 . JPREAC.FORT 


IMPLICIT  INTEGER(A-Z) 

REAL  CF3*  CF4*  ERRATE 

C*******  LABELED  COMMON  /G32 BIT/  ******* 

C 

COMMON  /G32  BIT /MASK  (  32  )  •  COMASK  (  32  )  ,L  I  BIT  (  32)  ,L2BI7<  32) 

INTEGER  MASK.  COMASK.  LI  BIT.LZBIT 
C 

COMMQN/BUFF/PELBUF( 60.  2  )  » CD8UF {240 ) . OTeUF( 60 , 2 ) . 

*  STF3UFI  240 ) ,  STA  T(  30  00 ) 

CO MM ON /HUFF /COOE( 3,92,2). COD ERD(3.9) 

COMMON /ERAY/ERRQRS(  2500) 

C***** ****** ************  FILE  DEFINITIONS  ******************** 

c  •  •  •  -  -•  -  - . . 

CO MM ON /F ILE S/TERM . LPF I L .PELF IL.OTFIL.ERFIL 
C 

c*********************  LABELLED  COMMON  VARIABLES  ********************** 

C 

COMMON/I VAR/PELMAX  * VRES. EPHASS. CMPMAX. ER RMCO.L INMAX.K 
COMMON /a V  AR /INuNNO . OTLNNG • OTEL W, I NELP . CDELP. OTcLP . CDEL W , 

*  CDELCT . INELCT .TCDATA.TCDEL. ERRPNT • ERROFF.ERRLJ M . 

*  ERRCNT • I NLNCT .CONSEC .ON EC NT .LNNOBF , WRCBUF, LPACK . 

*  INCOD. INREF. OTCOD.OTREF.TSTFBT 
COMMON/I CHAR/OD. 1 1 .MM.TT.NN.YY 

CO MMON/.OGI C/SEAR CH.DI AG, SYNC .LSS,  WRI TE. ZERO . LEFT .CHCOL .ONE 
LOGICAL  SEARCH.DIAG.SY  NC . LSS .WRITE, ZERO. LEFT. CHCOL, ONE 
C  ..... 

C  READ  INPUT  PARAMETERS 
90  WRITE!  TERM.  100) 

100  FORMAT (• *P ARAM ETERSS  INPUT(=I>,  OR  OEFAULT( =D> ?» Y  - 
RE AD (TERM ,1 10*ERR=90)  INSW 
110  FO  RM  AT  (  A  1  ) 

IF  (INSW.EQ.DD)  GO  TO  315  '  -  - - 

IF  (INSW. NE. II)  GO  TO  90 

C  READ  DIAGNOSTIC  SWITCH 
C 

-  11*  WRITE!  TERM,  115)  - - 

115  FORMAT  (•* DIAGNOSTIC  PRINTOUT?  <Y  OR  N>:  •) 

READ(TERM,1 10)  INSW 

IF(INSW.EQ.YY)  GO  TO  116  .  ’ 

IF(INSW.EQ.NN)  GO  TO  120 

GO  TO  11  4  . . . . .  . . 

116  CONTINUE 

DI  AG  =  .  TRUE. 

C  READ  MAXIMUM  NUMBER  OF  PELS  PER  LINE 
C 

120  CONTINUE  . . .  . 

WRITE!  TERM, 130) 

.  130  FORMAT  (•  SEN  TER  MAXIMUM  NUMBER  OF -PELS  PER  .LINE  1.  •)  . 

RE AO (TERM . 1 40, ERR-1 20 )  PELMAX 
140  FORMAT  (14) 

- -  ...  ..|f  (PEL MAX  .GE.i  » AND.PELMAX  .LE.1728)  -G0-TO--16O - - 

WR  ITE(  TERM,  150)  PELMAX 

150  FORMAT (‘0NUM3ER  OUT  OF  RANGE  (s'.ie,*)') 

GO  TO  120  . . 

C 

C  .  READ  VERTICAL  SAMPLING  . . 

C 

160  CONTINUE 

....  _...  *RITE(  TERM,  170) - - - - 

170  FORM  AT  (*  SEN  TER  VERTICAL  SAMPLINGS  •) 

READ (TERM .1  SO .ERR— 1 60 )  VRES 

180  FORMAT  (1 2  )  - 

IFIVRES. GE.I .AND. VRES. LE. 10)  GO  TO  150 

.  WRITE!  TERM,  150)  VRES  .  .  _ _ _ _ 

GO  TO  160 
C 

-C - READ  PARAMETER  K  •  -  — - - - - - ----- 


0  CONTINUE 

WRITE!  TERM,  192)  . . 

2  FORMAT  (•  SENTER  PARAMETER  K5  •) 

READ (TERM .1 40 »ERR=1 90)  K  .  .  . 

IF(K .GE.I .AND. K.LE. 3000)  GO  TO  200 
WRITE! TER  M, 150)  K 

■  -  GO  TO  190  -  -  - 

READ  ERROR  PATTERN  PHASE 


UNCLASSIFIED 


UNCLASSIFIED 


C 


200  CONTINUE 

WRITE!  TERM,  210) 

210  FORMATS  ScNTER  ERROR  PATTERN  PHASE:  • 
READ (T  ERM .220  »ERR  =  20  0 )  EPHASE 
220  FORMATd  l  ) 

IF(EPHASE.GE.0.AND.EPHASE.LE.3 )  GO  TO 
WRIT£( TERM, 150)  EPHASE 
GO  TO  200 

READ  MINIMUM  COMPRESSED  LINE  LENGTH 


240 


C 

C 


C 

C 

c 


240  CONTINUE 

WR  ITS! TERM, 250) 

250  FORMAT (* SENTER  MINIMUM  COMPRESSED  LINE  LENGTH:  •) 
READ (TERM ,1 40«ERR=240)  CMPMAX 

IF(CMPMAX .GE.0.AND.CMPMAX.LE.1723)  GO  TO  320 
WRITE! TERM, 150)  CMPMAX 
GO  TO  240 

REAO  NUMBER  OF  SCAN  LINES  TO  BE  PROCESSED 
320  CONTINUE 

WRI TE ( TERM , 330 ) 

330  FORMAT <• SNUMBER  OF  SCAN  LINES  TO  BE  PRCCESSED=?  •) 
READ (TERM  »1 40  »£RR=320 )  LINMAX 
IF  (  LINMAX.Gc.  1  .  AND.  L I NMAX.LE  *  3000 )  GC  TO  280 
WR ITS( TER  M, 1 50 )  LINMAX 
GO  TO  320 


C 

C 

c 


REAO  ERROR  MODE 

280  CONTINUE 

WR  I T£( TERM, 290) 

290  FORMAT (• *ERR0R  MODE=?  ( Ms MANUAL  »  T=TAP£  *N=NO  ERRCRS  )  •  ) 
REAO (T  ERM ,110,ERR=2  80)  ERRMOD 
IF  (ERR MOD  ,EQ,  MM)  GO  TO  300 
IF (ERRMOD. EQ.TT)  GO  TO  215 
IF (ERR MOO • NE. NN)  GO  TO  280 
GO  TO  350 

REAO  ERROR  LOCATIONS 


C 

C 

C 


300  CONTINUE 
ERRL  IM— 1 

305  RE AO (TERM, 140)  ERRORS ( ERRLIM ) 
IF(ERR0RS(ERRLIM).EQ.9999)  GO 
ERRL IM=ERRL IM+1 

GO  TO  305  . 

310  CONTINUE 

ERRLIM=ERRLIM-1 
GO  TO  350 


TO  310 


C 

C 


READ  ERROR  TAPE  FILE  AND  OPEN 

315  CONTINUE 
ERRL  IM— I 

READ (ERFIL.318, HND=3 1  7 )  ERRORS ( ERRL IM  ) 

ERRL  IMsERHL  IM  +  I 

316  REAO (ERFIL ,318  »END=3l 7 )  ERRORS ( ERRL I M  ) 

31  8  FORMATd  16) 

ERRORS (ERRL IM)=ERRORS( ERRLIM )+ERRCR S ( ERRL1 M-l ) 
ERRLIM=£RRLIMf 1 

GO  TO  216  •  -  .  -  -  -  - 

317  ERRLIM=ERRL  IM— 1 

350  CONTINUE 

360  CONTINUE 

WRITE  INPUT  PARAMETERS 

.  WR  IT  E( LPF IL , 400 )  PcLMA  X , VRES , K , EPHA  SE , CM PM AX .LINMAX 

400  FORMAT  (•  1  INPUT  PARAMET cRS  :  •  / 

*  * 0 MA X I M UM  NUMBER  OF  PELS  PER  LINE  =  * .16/ 

*  *  0  VERTI  CAu  SAMPLING!  N=',I4/ 

*  'OPARAMETER  K  =*,14/ 

*  'OERROR  PATTERN  PHASE  =’,14/ 

*  *  0  MI  NI  MUM  COMPRESSED  LINE  LENGTH  =',I4,'  BITS'/ 

*  'ONUMBER  3 F  SCAN  LINES  TO  BE  PRCCESSED  =',I6> 

IF  (ERRMOD  ,'£Q»NN)  WR  ITS  (LPF  IL  .410  )  - - 

410  FORMAT  (  • ONO  ERRORS  INSERTED') 

IF (ERRMOD .EO »MM )  WR ITE( TERM , 1 40 )  ( ERRORS! I ), 1  =  1 .ERRLI M) 
IF (ERRMOD. EQ.TT)  WRITE (TERM, 420 )  ERRLIM 


K-2 


UNCLASSIFIED 
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420  FORMAT (112,  •  ERRORS  OBTAINED  FROM  ERROR  TAPE*) 
C********************  BEGIN  PROGRAM  ****************** ******** ***** , 
C 

C  INITIALIZE 
C 

TCD£L=0 
TCDATA=0 
ERRPNT  =1 
ERRCNT=0 
INLNCT =0 

ERROFF  =EPHASE*1 024 
C.0ELCT=32 
OTELP=i 
COELP=  32* 1 
C0NSEC=1 
INR£F=1 
IN  CO  0=  2 
OTREFal 
OT  C00=  2 
¥R0BUF=0 
LPACKaQ 
C 

•  DO  800  1=1,240  . 

STFB  UF ( I ) =0 
CDBUF(  I  )  =  0 
800  CONTINUE 

00  850  1  =  1.60 
OT  8UF( I.QTREF)=0 
0T8UF1  I .0  TC 00 ) =0 
PELBUFU.  INREF }  =  0 

PELBUFd  .  INCOD>  =  0  •  - . . 

850  CONTINUE 

SEAR CHa. TRUE* 

SYNC=. FALSE. 

WR  ITE=  .FALSE. 

C 

C  SEARCH  MODE:  LOOK  FOR  L3S1  BIT-BY-BIT 
C 

-  900  •  CONTINUE  . .  - . -  . - 

L=  0 

ZERO=. FALSE. 

LSS=. FALSE. 

ON  ECNT  =0 

HRCBUFaO  . -  . 

LPACK=0 

CALL  GETL (8.M0DE.LBITS.L) 

C  IF (DIAG)  WR ITEI TERM ,140)  MODE 

C  IF ( MOO E. N E . 2 )  STOP  900 

C  ... 

GO  TO  (91 0.930, 930, 920), MODE 

STOP  9  00  .  . .  .  . . . . 

910  CONTINUE 
C 

-  C-  -LSS  NOT  FOUNOJ- ADVANCE  POINTER  AND-  TRY  AGAIN 
C 

CDELP=C0ELP*1 
GO  TO  900 
920  CONTINUE 
C 

C  SIX  ONES  DETECTED  WITHOUT  AN  INITIAL  ZERO 
C 

. IF(DIAG)  WRITE  (TERM, 925)  CDELP  •  - 

925  FORMAT  (*0  SOMETHING  ROTTEN  AT  CDELP= • . 18 ) 

GO  TO  910 

930  CONTINUE  ~  . 

C 

C  J-SS  FOUND  ...  .  . . .  . . 

C 

SEAR CH=. FALSE. 

CD  ELP=  CDELP  +L  -  ■  .  .  . . . 

IF(WRITE)  GO  TO  935 
WR  I  TE=  .TRUE. 

GO  TO  960  ... 

935  CONTINUE 

.  C  . 

C  SET  OUTPUT  DECODE  LINE  TO  0  AND  WRITE  OUT 
DO  950  1=1,60 

OTeUF<  I,0TC0D>=0  -■  . — . 

950  CONTINUE 

WR  IT E( OTF IL )  0TLNN3 , PELMAX, ( QT3UF< I , OTCOD ) ,1=1  ,60) 

OTLNNC  =LNNOBF 


H-3 


UNCLASSIFIED 


UNCLASSIFIED 


960  CONTINUE 

IF  (MODE- 2  >9  6S»  1000,  900 
965  ST GP  965 
1000  CONTINUE 
C 

C  PERFORM  ONE— 01 MENS1CNAL  OECOOE  OF  A  COMPLETE  LINE 
C  FIRST, SET  OUTPUT  SUFFER  TO  WHITE 
C  (ONLY  SLACK  RUNS  WILL  BE  INSERTED) 

C 

DC  101 0  1=1 .60 
GTBUFt  I.DTCOD)  =0 
1010  CONTINUE 
C 

IN  DEX=  3 
COLQR= 1 
.  OTELP=  1 

*  C 

ZERO=. FALSE. 

LSS=  .FALSE. 

QNECNT  =0 
1020  CONTINUE 

•  CALL  ONEO IM( INDEX,  COLOR, STATUS, L ) 

*  GO  TO  (1030,1070,1070.1035,1040)  .STATUS 

C  1  2  3  4  5 

STOP  1000 
C 

C  RUN  added;  check  -ENGTH  of  output  line 

c 

1030  CONTINUE 
ONE=.TRUE  . 

IF ( OTELP— 1— PELMAX )  1031,1032,1050 

1031  CONTINUE 

IF(CHCOL) COLOR=MOD( COLOR+2,2 )+i 
INDEX=  3 
GO  TO  1020 
3000  CONTINUE 
C 

C  PERFORM  TWO-DIMENSIONAL  OECOOE 

C 

C 

C  FIRST,  SET  OUTPUT  BUFFER  TO  WHITE 
C  (ONLY  SLACK  RUNS  WILL  BE  INSERTED) 

C 

DO  3010  1=1.60 
OT 8UF( I,GTC0D)=0 
3010  CONTINUE 

C  •  •  •  ... 

IN0EX=3 
COLOR= 1 
OT  =LP= l 
C 

ZERO*. FA- SE. 

LSS=*F  ALSE. 

0NcCNT=0 

•3020  CONTINUE  -  •  ... 

CALL  TWODIMt INDEX, COLOR, ST ATUS.L) 

GO  TO  (30L0. 1070, 1070, 1035,1040) .STATUS 
C  '  1  2  3  4  5 

STOP  3000 
C 

C  RUN  AOOEO;  LOOK  for  next  run 

c 

-  3030  CONTINUE 

ONE=.FALSE. 

IF (OTEL°- 1— PELMAX)  3031 , 1 032 , 1 050 
3031  CONTINUE 

IF  (CHCQL)  COLOR=MOD(  C0L0R+-2  ,2  >+l 
IN  CcX=  3 
GO  TO  3020 
C 

C  •  •  ... 

C  LINE  LENGTH=PELMAX{  CHECK  FOR  FILL  AND  LCOK  FOR  LSS 
C 

1032  CONTINUE 

ZERO=.  FALSE. 

LSS=. FALSE. 

ON  EC  NT  =0 
;  1033  CONTINUE 

-  - WR08UF  =0  . 

:  LPACK=0 

L=Q 

*  '  CALL  GETL  (1  .MODE.LOITS.L  ) 


UNCLASSIFIED 
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GO  TO  (1034,1050, 1050. 1050), MODE 

CHECK  FOR  FILL 

034  CONTINUE 

•  CO  GLP=  CDE  LP  *L 
IF(LaiTS.EQ.O)  30  TO  1033 
L=0 

WRC8UF  =0 
LPACK=  0 

CALL  GETL (6 .MODE.LB ITS  L) 

GO  TO  (1070,1060,1060, 1080) .MODE 

PREMATURE  LSS  DETECTED 


L  SSI  DETECTED 


1035  CONTINUE 

COELP=  CDELP  +L 
ST  AT  US  =4 

IF(OTELP.LE.S)  C0NSEC=CCNSEC+1 
IF(CONS£C-2) 1080, 10  00,  20  00 

LSS2  DETECTED 

1040  CONTINUE 

CD  EL P=  CDELP  >L 
STATUSES 

GO  TO  1080 

PROBLEMS .PROBLEMS 

1050  STOP  1050 

LINE  LENGTH  CORRECT,  LSS  DETECTED  PROPERLY?  WRITE  OUTPUT  LINE 

1060  CONTINUE 

CDELP=CDELP*L 

WR  IT  E(  OT  FIl_  )OTLNN0«  PELMA  X,  (OTBUF  (I  ,  OTCOD)  ,1  =  1.60) 

CTLNN0=LNN03F  . 

CO  NSEC =1 

IF(ONE)  SYNC=.TRUE. 

- temp=otref  . 

OT  RSF=  OTCOO 
otcod=temp 

IF  (MODE.EQ.  2)  GO  TO  1000 
GO  TO  3000 

LINE  TOO  _ ONG  OR  NO  MATCH  ' 

1070  CONTINUE  . . . . 

WR  ITE=  .FALSE. 


LINE  SHORT 

1080  CONTINUE 

IF( .NOT. SYNC)  GC  TO  1090 


WRITE  L4  ST  GOOD  LINE  - 


WRITE(OTFIL)  OTLNNO.PELMAX ,( OTBUF ( I .OTREF  ), 1  =  1,60) 
SYNC=.  FALSE. 

GO  TO  1110 

090  CONTINUE  .  .. 

WRITE  A  WHITE  LINE 


00  1100  1=1 ,  60 
1100  OTBUF (  I«0TCQD)=0 

WR IT E( OTF IL )  OTLNNO , PcLMA X, { OTBUF( I .OTCOD) ,1=1 , CO) 
110  0TLNN0=LNN08F 

IF ( STA  TUS  «EQ»4 )  GO  TO  1000 
SEARCH=.TRUE. 

GO  TO  900 

END  OF  MESSAGE 

2000  CONTINUE 
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«*RIT=tLPFIL.2010)  CONSEC 

2010  FORMA  r { • OEND  OF  MESSAGE  DETECTED  !*.I2,‘  EOL“S)‘) 

C 

C  REPORT  COMPRESSION  FACTOR.  ERROR  SENSITIVITY  FACTOR, BIT  ERROR  RATE 
C 

ERR ATE=Fl  OAT  <  HRRCNT  )/FLOAT (TCOEL  > 

WR  IT£( L3F I L ,2  020)  TCDEL . TCOA TA , T STFBT , INLNCT , ERR ATE 
2020  FORMAT  (‘OTOTAL  NUMBER  CF  CODED  BITS  =  '.18/ 

*  ‘OTOTAL  NUMBER  CF  CODED  DATA  eiTS  =  *,18/ 

*  ‘OTOTAL  NUMBER  OF  STUFFING  BITS  =  *,18/ 

*  ‘OTOTAL  NUMBER  OF  INPUT  LINES  PROCESSED  =  ‘,18/ 

*  ‘OBIT  ERROR  RATE  =  *,G14.6) 

C 

CALL  STATS! STaT, INLNCT .DIAG) 

CF3=FL0AT!P£LMAX)*FL0AT!  INLNCT  )  /FLOAT!  TCOEL) 

CF4=FL0AT! PELMAX )*FLOAT ( INLNCT I/FLOAT (TCDATA) 

C 

WRITE(LPFIL ,2030 )  CF3.CF4 

2030  FORMAT!* OCOMPRESSI ON  FACTOR  FOR  G2  MACHINE  !CF3>  =‘,F8.4/ 

*  • 0 COMPRESS  ION  FACTOR  FCR  G4  MACHINE  !CF4)  =  ‘,F8.4) 

C 

CALL  ERSMES ! PE_ BUF , 3 TSUF ,PELMAX , VRE S  *ERRCNT ) 

C 

STOP 

END 

SUBROUTINE  GETL1LBITS. MODE.WRD.L  > 

IMPLICIT  INTEGER! A-Z) 

C*******  LABELED  COMMON  /C32BIT/  ******* 

C 

COMMON  / 3  3281 T/MASK! 32) .COMASK! 32) .LI3IT!32).LZBIT(32) 

INTEGER  MASK. COMASK, LIBIT, LZBIT 
C 

CO  MM  ON/8 J  FF/P  EL  OJF(  60»2)»CDBUF( 240)  .CTBUF160.2)  , 

*  STF8UF  <240) ,  STAT(3000) 

CO  MM  ON /HUFF /CODE!  3,92, 2  )  .CODERD!  3.9) 

CO MM ON /£R AY /ERRORS ! 2500 ) 

c*********************  labelled  common  variables  ********************** 

C 

COMMON /I  V  AR/PELMAX . VRES, EPHASE . CMPM AX , ERRMQD.L INMAX ,K 
COMMON /3V  AR  /IN^NNO , OTLNNO ,QT£L  W » I NELP » CDELP, OTELP , CDELW  » 

»  CDELCT . INELCT.TCDATA.TCDEL.ERRPNT.ERROFF.ERRLIM, 

*  ERRCNT , INLNCT, CCNSEC.ONECNT.LNNOBF, WRCBUF, LPACK , 

*  INCOD, I NREF , CTCC  D, 0 TREF , T  STFBT 
COMM ON /I  CHAR/DO. II .MM.TT.NN, YY 

COMMON  /_OGI  C/S  EAR  CH  ,  D  I A  G  »  SYNC  ,  L  SS.  *RI  TE  .  ZERO  ,L  EFT  ,CHCOL  ,  ONE 
LOGICAL  SEARCH, 01 AG. SYNC  »LSS .WRITE, ZERO, LEFT , C HCOL , ONE 

C******* *********************  BEGIN  PROGRAM  *************************** 

C 

MQOE—4 

C 

C  RETRIEVE  NEXT  BIT  FROM  CDBUF 
C 

100  CONTINUE 
C 

-C  ENCODE  A  NErf  LINE  IF  NECESSARY  -  -  . 

C 

IF ! L+COEuP. LE.COELCT)  GO  TO  200 
IF{ CDELCT-CDELP+1 )  170.190,180 
17  0  STOP  170 
130  CONTINUE 

STFBUFQ  >=148!  STFBUF,  CDELP.  COELCT-CDELP  +  1  ) 

190  CONTINUE 

CQELP=  32-  (COELCT-CDELP  )  -  •  . 

CALL  ENCODR 
200  CONTINUE 

POL=I4d!STF8UF,CDELP+L,l ) 

L=L+- 1 

IF (POL )220. 240,300 
220  STOP  220 
240  ZE RQ  =  »  TRUE. 

-  IF  <0NECNT-5  >310.260,  280  -  . — . 

260  CNECNT=0 
GO  TO  100 

280  IF !.  NOT.  ZERO)  RETURN  -  ' 

MODE -3 
RETURN 

300  ONEC  NT  =ON EC NT  +  1 

IF  (ONECNT-5  >320,320,34  0 

310  CONTINUE  --  -  ■  —  ■  - 

onecnt=o 

3  20  CONTINUE 

LPACK=LPACK+1 
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IF  (POL  )  324,330.325 
32  4  ST  CP  3  24 
325  CONTINUE 

CALL  M  126  (  POL  » W  RDBUF  »L  P4CK  •  1  ) 

330  CONTINUE 

IF  (LPACK.lT.LBITS)  GC  TC  100 
WRD=I43(WRD0UF,1  « LP ACK  ) 

MO  DE  =  1 
RETURN 

340  IF ( .NOT. ZERO)  RETJRN 
IF  (L  3S  )  GO  TO  360 
LSS=.TRUS . 

GO  T3  100 
360  M00L=2 

RE  TURN 
EN  D 

SUBROUTINE  ENCOOR 
C 

IMPLICIT  INTEGER!  4-Z ) 

*******  LABE_ED  COMMON  /G32BIT/  ******* 

COMMON  /S320IT/MASK(32 ) , COMASK < 3 2 ) , L 1 3  IT (  3  2  >  ,L  Z  B  IT  (  32  > 

INTEGER  MASK, COMASK, LI8IT.LZB1T 

C0MM3N/3UFF/3E-9UF (60.2) ,CD3UF( 240 ) .CTBUF (60 ,2 ) » 

*  STF3UF ( 240  )  ,  ST  AT (  30  00) 

COMMON /HUFF/C30EI 3 ,92,2 ) ,CC0ERD(3,9) 

COMMON /CRAY /ERRORS  (  2500) 

***********************  FILE  DEFINITIONS  ******************** 

COMM ON/FI LS3/TERM, LPFIL, PELF IL, OTF IL , ERF IL 

*********************  LABELLED  COMMON  VARIABLES  ********************** 

COMMON /I  VAR/PELMAX  ,  VRE  S  .  EPHA  SE  .  C  VPMAX  ,  ERRMCD  ,L.  I  K  MX  ,K 
CO  MMON/°V  AR/IN_NN3,CTLNNO,OTELYI  ,  INELP . CDELP. OTELP .CDELW  , 

*  COELCT , I NELCT .TCDAT  A  »T CO EL , ERRFNT • ERRCFF. ERRL IM , 

*  ERRCNT , INLNCT .CONSEC .ONECNT .LNNOBF , WRDBUF .LPACK , 

*  INCOD, INREF.OTCOO.OTREF, TSTFBT 
COMMON/ICHAR/DD,  I  I , MM , TT , NN , Y Y 

CO  MMON/LOG I  C/3  EARCH  »  D I  AG. SY NC , LSS , WRITE, ZERO . L EF T ,C HCOL , ONE 
LOGICAL  SEARCH, 01  AG, SYNC , LSS , WR1 TE , ZERC , LEFT , C HCCL , ONE 

***********************************  BEGIN  PROGRAM  ******************** 

INITIALIZE  VARIABLES  -  « 

CD EL CT  =32 
CDDATA=0 
DO  50  1=2,240 
CDEUFC I)=0 
50  CONTINUE 

READ  INPUT  PICTURE  FILE  . 

100  CONTINUE 

RE  AD ( PELF  I L ,END=1  2  0 , ERR=5  00 ) 

*  INLNNO.  INFLCT.(PZLBUF(  I  ,  1  NC  OD  )  ,  I  =  1  ,  6 0  ) 

IF  (MOD  ( I  NL.NNO,  100)  «EQ,0)  WRITE  (TERM,  XI  0)  INLNNO 
110  FORMAT ( *  IN°UT  LINS  NO.  =*,I6) 

IF  (MOD (I NLNNQ  — 1 ,VRES).NE,0)  GO  TO  100 

IF (INELCT ,LT • PELMAX )  CALL  EXIT  - 

INLNCT  =  INLNCT-Fl 

LOAD  OUTPUT  LINE  NUMBER  BUFFER  '  " 

LNNOBF=INLNNO 

IF (SEARCH  )0  TLNNO  =  LNNOBF 

IF (INLNNO, LE.LINMAX)  GC  TO  140  ■  - 

WRITE  SIX  LSS 1  •  S 

120  CONTINUE 

DO  130  1=1,6 

CALL  CaDEVH(8, 0,0, 0, 0,  CDELCT , COD AT A ) 

130  CONTINUE 

00  135  1=1,6 
STF5UF  {  I  )  =CD8UF(  I ) 

13  5  CONTINUE 
GO  TO  400 
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C 

C  FIRST  OF  K  LINES? 

C 

140  CONTINUE 

IF (MOO ( I NLNCT-1 «  K ) • NE • 0 )  GO  TO  600 
C 

C  ONE-DIMENSI  ONAL  CODING 
C  WRITE  ONE  LSS1 
C 

CALL  C0DSVM(8, 0.0, 0 , 0 , CDELCT , CDS AT A ) 

C 

POLAR= 1 

C 

C  TEST  COLOR  OF  FIRST  ELEMENT 
<• 

IF (I4B(PELBUF( 1> INC  00 )«l,l).EQ.O)  GO  TO  150 
C 

C  FIRST  ELEMENT  SLACK!  ENCODE  O-LENGTH  WHITE  RUN 
C 

CALL  CQDELN(0«1 *CDELCT ,CDDATA) 

POLAR=  2 
C 

C  CALCULATE  RUN  LENGTH  AND  ENCODE 
C 

ISO  CONTINUE 
RUN=0 

DO  200  Ixl.PELMAX 

PE  L= 1 4  3( PELSUF( 1  ,  I  NCOD  )  ,  I  .  1  )  «-l 

IF  (PEL  .EQ  .POLAR)  GO  TO  180 

CALL  COOELN(RUN,POLAR.CDELCT.CDDATA) 

IF  (.NOT.DIAG)  GO  TO  170 

WRITE (TERM, 160)  RUN, POLAR. CDELCT, COD AT A 
160  FORMAT (41  8) 

170  CONTINUE 
RUN*1 

POLARrMOD  (POL  AR«-2 . 2  )  +  1 
GO  TO  200 
180  CONTINUE 
RUN=RUN+l 
200  CONTINUE 

CALL  C OD=LN( RUN. POLAR. CDELCT, CDOATA) 

IF (.NOT.DIAG)  GO  TO  210 

WRITH( TERM, 160)  RUN , POLAR .CDELCT ,CDDATA 
GO  TO  210 
C 

C  TWO-DIMENSIONAL  CODING 

C  .  ... 

600  CONTINUE 
C 

C  WRITE  ONE  LSS2 
C 

CALL  C0DEVH(9,0,0, 0,0, CDELCT, CDDATA ) 

C 

C  SET  AO  TO  „EFT  EDGE-1  AND  POLARI TY=WHI TE 

A0=0 
POL=  0 

LEFT=«  TRUE.  ... 

C 

C  DETECT  A 1 
C 

620  CONTINUE 

I=AO+l  -- 

IF(  I  .GT.PELMAX)  GO  TO  640 
630  CONTINUE 

PEL=I43(PEL9UF(1  .INCOD), 1. 1  )  '  ' 

IF ( PEL .NE .POL )  GO  TO  640 

i=m 

IF( I .LE. PEL MAX)  GO  TO  630 
640  CONTINUE 

. A1  *1  - . . . -  --  -■ 

C 

C  DETECT  B1 

C  "  " 

I=A0+1 

IF( I .GT.PELMAX)  GO  TO  665 
PELM 1  =  I 43( P  £LBUF( 1 , INREF ) , AO , 1 > 

IF (LEFT)  PELM 1 =0 

-  -  650  CONTINUE  . 

PEL=  I4  3(PELBUF(  1  ,  INREF  ),  I  ,  1  ) 

IF (PEL.NE .PEL Ml )  GO  TO  670 
660  CONTINUE  . 
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PELM1=PSL 
I  =  I-*- 1 

IF(  I  .L  2. PEL  MAX)  GO  TO  650 
665  CONTINUE 
31  =  1 

GO  TO  710 
670  CONTINUE 

IF  (PEL  .NE.POL)  GO  TO  600 
GC  TO  660 
690  CONTINUE 
B1  =  I 
POL=PEL 
C 

C  DETECT  32 
I  =  B1FI 

IFU  .GT.PELMAX  )  GO  TO  710 
700  CONTINUE 

PEL=  I4S(  P  EL  3UF(  1  ,  INREF  ),  1,1) 

IF (PEL. NE, POL)  GO  TO  720 
1=  IF  l 

IF  51  .LE. PEL  MAX  )  GO  TO  700 
710  CONTINUE 
82  =  1 

60  TO  730 
720  CONTINUE 
82  =  1 
POL=PEL 
730  CONTINUE 

IF ( .NOT. LEFT)  P0LAR=I4B(PELBUF(1 ♦ INCOD). AO, 1 )+l 
IF<  .NOT.. EFT)  GO  TO  740  -  .... 

POLAft=  1 
A0=1 

LEFT=.  FALSE. 

74  0  CONTINUE 
C 

C  TEST  FOR  PASS  MODE 
C 

IF( 02. GE.A1  )  GO  TO  750  -■  -  -  . 

C 

C  PASS  MODE  CODING  (CAN'T  END  A  LINE  IN  PASS  MODEJNEW  AO  MUST  HAVE 
C  SAME  POLARITT  AS  82) 

C 

CALL  CQDEVHd.O.O.O.O,  CDELCT  »  CCDATA) 

A0=B2 
GO  TO  620 

C  CALCULATE  LENGTH  OF  VERTICAL  AND  HORIZONTAL  MODES 
C  (EFFECT  OF  ZERO  INSERTION  IS  IGNORED) 

C 

750  CONTINUE 

C  . . .  . 

C  DO  HORIZONTAL  FIRST 
C 

.  A1MA0=A1-A0  -•  -  -  - - -  -  • 

HQRI Z— 0  * 

IF(A1MAD .LE .63 )  33  TO  755 

HORI Z=C0DE<1 .A1  MAO/64 F64 .POLAR)  -  -  - . 

7  55  CONTINUE 

TEMP=MOD(  A1MA0.64)  Fl  ...  _  . 

HORI Z=HORI ZFCODE ( 1 . TEMP .POLAR ) F4 
C 

C~  CALCULATE  VERTICAL  LENGTH  --  - -  ---  ■  - 

C 

MAB=IAB5(A1~B1  ) 

IF(MAB-l)  760,770. /SO - - - - - 

C 

76  0  VERT  I  C=1  ..  .  _ _  _ _ 

GO  TO  790 
770  VERT IC=3 

•  GO  TO  790  . — - . . .  — - 

780  VERT IC=MA8F3 
790  CONTINUE 

IF(HORIZ.GT.VERTIC)  GO  TO  835  . 

C 

C  CODE  BY  HORIZONTAL  MODE*,  FIRST  DETECT  A2 
C 

I=A1  +1 

IF  (  I  .G  T.PELMAX )  GO  TO  310  -  -  - - -  - 

C 

C  CALCULATE  POLARITY  OF  A1 

C  . 


I 
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P0L=I4B{PEL  9UFJ 1  ,  INCOD).  Al,l  ) 

800  CONTINUE 

PEL=I48(P3-  BUF(  1  *  INCOD  )  ,  I  ,  1  ) 

IF(PSL.NE.-  OL)  'JO  TO  820 
1=  1*1 

IF  (I  .LE.PELMAX)  GO  TO  800 
810  A2=PELMAX*1 
GO  TO  830 
820  CONTINUE 
A2=I 

830  CONTINUE 

CALL  CODE VH (2  » POLAR • A0  »  A 1 , A2 . CDELCT , CODATA ) 

A0— A2 
GO  TO  960 

CODE  8Y  VERTICAL  MODE 
835  CONTINUE 

IF (VERTIC-3 )  840.350.890 

840  CALL  CODE VH( 3. 0.0. 0.0. CDELCT. COD ATA ) 

GO  TO  950 

850  IF(Al-Bl)  870.860.880 
860  ST  CP  860 

870  CALL  C0DEVHI6, 0,0, 0,0, CDELCT, CDDATA) 

GO  TO  950 

880  CALL  C0DEVHI4. 0,0, 0.0. CDELCT, CDDATA) 

GO  TO  950 

890  IF(Al-ai)  910,900,920 
900  ST CP  900 

910  CALL  C0D=VH(7,0.A1.B1.0, CDELCT, CDDATA) 

GO  TO  950 

920  CALL  C0D5VH(5,0.A1 ,81 .0. CDELCT, CDDATA) 

950  CONTINUE 

A0=Al 

TEST  FOR  END  OF  LINE  . 

960  CONTINUE 

IFCAO*  GT .PEL MAX )  GO  TO  210 
POL- 14  B( PEL  3UF ( 1, INCOD) ,A0,1  ) 

GO  TO  620 
210  CONTINUE 

SWITCH  CODE  6  REFERENCE  LINES  •  -  - 

TEMP^INREF 
inref= INCOD 
INCOD—  TEMP 

BIT  STUFFING  (ZERO  INSERTION) 

CALL  STUFF{CD8UF,STF3UF,STF8IT, CDELCT) 

SAVE  LINE  L  ENGTH(  DAT  A  BITS  ONLY) 

STATU  N_NCT)=CDDATA+8 

CHECK  CODED  LINE  LENGTH 

FICL=C  MPM  AX  — {CDELCT -*32  )  . — 

IF (F ILL)  400,400,250 

CODE  LINE  TOO  SHORT;  FILL  IT  TO  CMPMAX 
250  CONTINUE 

CDELCT =CDELCT  *FILL  . 

ACCUMULATE  STATISTICS  AND  ERROR  CORRUPT 

400  CONTINUE 

IF(ERRMOD.EQ.NN)  GD  TO  390 
ERROR  CORRUPT 
350  CONTINUE 

ERR8 IT=ERR0RS( ERRPNT )— ERROFF— TCDEL 

IF  (ERRSIT.LE.O)  GO  TO  360  . - 

IF (ERR  BIT .GT .CDELCT— 32 )  GO  TO  390 

C  ERROR  IN  RANGE  OF  CODED  LINE;  CHANGE  APPROPRIATE  BIT 

,,  UNCLASSIFIED 
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BIT*I4  8(S7FEUF»  ERRBIT  +32,  I  ) 

BI  T*  MCDIBIT  +  l .2) 

CALL  M  123 (BIT*  STFBUF,  ERRS I T+32, X ) 

ERRCNT=£RRCNT+1 

INCREMENT  ERROR  LIST  POINTER 

360  CONTINUE 

ERRPNT=ERRPNT+1 

IF(ERRPNT.LE.ERRLIM)  GO  TO  350 
ERROR  LIST  EXHAUSTED 

ERRPNT  =£RRPNT-X  .  -  .  -  . 

WRITE! LPr I L  *370)  ERRPNT, ERRORS! ERRPNT ) 

370  FORMAT  (*0ERR0R  LIST  EXHAUSTED  AT*,110»*TH  ERROR;*/ 

♦  •  LAST  ERROR  OCCURRED  AT*. 110.*  BITS*) 
ERRMODsNN 

COMPUTE  STATISTICS 

390  CONTINUE  ...  -  -  . 

TCDEL*TCDEL+CDELCT-32 
TCOATA*TCOAT  A+CODATA 

IF(DIAG)  WRITE (TERM, 160)  INLNCT,  CDDATA 
TSTF3T=*T STFBT+-STF3  I  T 

IF  (.NOT.DIAG)  GO  TO  460 
CDELW=  (CDEL CT +32-1 )/32 
•  -  WRITE! LPFIL, 450)  { CDBUF! I ) . 1*1 .COELW ) 

WR  ITE! LPF IL , 450 )  (  STFB UF ( I ) , I *1 , CDEL W) 

WR ITS! LPF IL .445 )  STFBIT 

)45  FORMAT  (I  8,  •  ZEROES  INSERTED*)  . 

450  FORMAT  !6ZX2) 

♦60  CONTINUE  - . .  . 

RETURN 

500  CONTINUE  . —  -  '  - - - - -  - 

CALL  EXIT 

END  ‘  ' 

SUBROUTINE  CODEVH!  MODE, POLAR, A, B.C, CDELCT, CDDATA) 
IMPLICIT  INTEGER(A-Z) 

COMMQN/B JFF/PEL3UF (60, 2) , COBUF ( 240 ) ,OTBUF ( 60,2 ) , 

*  5TF3UF ( 240 ) ,  STAT(3000) 

-  -  COMMON/HUFF/C3 DE(  3,92,2)  ,  CODERD!  3,9) . - 

COMMQN/ER  AY/ERRORS  (2500  ) 

GO  TO  (100,200,100,100,500,100,500,600.800)  .MODE 


MODE  123456789 

STOP  129 

PASS  MQDEU  ), VERTICAL-  MODE:  A1B1=0(3)  *  A1B1=K4,6)  . 

100  CONTINUE 

CALL  M 12 3 ( CODERD (3, MODE ) , CDBUF, CDEL CT+t, CODERD ( 1 , MODE ) ) 
CDELCT«CD£LCT+C00ERD!1  .MODE) 

CD0ATA=CDDATA+C3DERD( 1 .MODE)  . 

RETURN 

HORIZONTAL  M00E(2»  -  . . - . . . . . . 

200  CONTINUE 

CALL  NI23(C0DERD(3,2), CDBUF, CDEL CT+1 , CODERD! 1 , 2 ) >  '  ‘ 

CDELCT=CDELCT+CODERD< 1  .2) 

CD0ATA=CDDATA+C0DERD(1 ,2)  .  .  . . . 

CALL  CODELN (B-A, POLAR, COELCT, CDDATA) 

NE WPOL=MOO (PQLAR+2 ,2)41 

CALL  C  ODELN  (C~3»  NEW POL  .COELCT  ,  COOAT  A  ) — . . . 

RE  TURN 

VERTICAL  MODE:  A191>1  (5,7)  *  "  -  - - 

500  CONTINUE  . .  .  .  _ 

CALL  MI2B { C0DERD( 3 , MODE) . CDBUF , CDELCT+1 , CODERD! 1 , MODE) ) 
COELCTsCDELCT+CODERD!  I  .MODE) 

•  CDOATA»CDQATA+CQDERD( 1 .MODE)  -■  . . 

LIM*IABS!  A-B)-2 
IF(LIM)  530.560,540 

53  0  STOP  530  "  ~ 
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C 
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c 
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P0L*l4B(PEL9UF(l»  IN  COD  ), A1  , 1  ) 

800  CONTINUE 

PEL«  14  a(P  a.  8UF(  u  INCOD),  1,1) 

IF(PEL ,NE ,P0L)  GO  TO  820 
I*IM 

IF (I ,LE. PEL  MAX)  GO  TO  800 
810  A2*PELMAX*i 
GO  TO  830 
820  CONTINUE 
A2*I 

830  CONTINUE 

CALL  COOEVH(2 .POLAR ,A0,A1 ,A2 .CDELCT .CODATA) 

A0*A  2 
GO  TO  960 

CODE  BY  VERTICAL  MODE 
835  CONTINUE 

IF (VER  TIC-3 )  840,350,890 

840  CALL  CODEVH(3. 0,0, 0.0, CDELCT, CDDATA) 

GO  TO  950 

850  IF(Al-Bl)  870,860,880 
86  0  STOP  860 

870  CALL  C0DEVH{6, 0.0. 0,0. CDELCT, CDDATA) 

GO  TO  950 

880  CALL  C 03 EVH (4*0, 0,0,0, CDELCT .CDDATA ) 

GO  TO  950 

890  IF(Al-ai)  910,900,920 
900  ST CP  900 

910  CALL  C03EVH(7,0,A1,B1,0,CDEL'  T. CODATA) 

GO  TO  950 

920  CALL  C00EVHC5.0.A1 ,B1 ,0, CDELCT, CODATA) 

950  CONTINUE 
A0*Al 

TEST  FOR  END  OF  LINE 
960  CONTINUE 

IF (AO, GT . PEL M AX )  GO  TO  210 
POL* 14  U( PEL  3UF (1,1 NCOD ) , AO , 1  ) 

GO  TO  620 
210  CONTINUE 

SWITCH  CODE  &  REFERENCE  LINES 

TEMP* INREF 
IN REF* INCOD 
INCOD* TEMP 

BIT  STUFFING  (ZERO  INSERTION) 

CALL  STUFF ( COBUF, ST FBUF, STF8 IT , CDELCT) 

SAVE  LINE  L  ENGTH(  DAT  A  BITS  ONLY) 

ST AT ( I N_NCT)*CD0ATA*8 

CHECK  CODED  LINE  LENGTH 

FILL*CMPMAX  — (CDELCT— 32  )  . — 

IF (F ILL)  400.400,250 

CODE  LINE  TOO  SHORT?  FILL  IT  TO  CMPMAX 
250  CONTINUE 

CDELCT "CDELCT  4FILL  _  . 

ACCUMULATE  STATISTICS  AND  ERROR  CORRUPT 
400  CONTINUE 

IF (ERRMOD.EQ.NN)  GO  TO  390 
ERROR  CORRUPT 
■JSO  CONTINUE 

ERRB IT  * ERRORS ( ERRPNT )— ERROFF— TCDEL 

IF  (ERRaiT.LE.O)  GO  TO  360  . 

IF (ERR  BIT  «GT ,COELC T-32 )  GO  TO  390 

ERROR  IN  RANGE  OF  CODED  LINE?  CHANGE  APPROPRIATE  BIT 
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540  CONTINUE 

00  550  1=1. LIN 

C  CALL  MI28(OtCD0UF,CDELCT*l  <1  )  COBUF  MUST  BE  INIT.  TO  0 

CDELCT  =CDELCT*1 
CD  DAT  A=CDDATA*1 
550  CONTINUE 

560  CALL  MI2B(l  .  CDBUF ,  C  DEL  CT +  1  .1  ) 

CDELCTCDELCTM 
CD0ATA=CD0ATA*1 
RE  TURN 

ADO  LSSi  OR  LSS2  TO  LINE  (8.9) 

00  CONTINUE 

CA  LL  M 12  d( C00ER0 ( 3. HODc ) • COBUF , CDELCT+l. CODEROI 1 , MODE ) ) 
CDELCT=C3ELCT*C0DER0( 1  .MOOE) 

RETURN 
END 

SUBROUTINE  ONEDI M ( I NDE X, COLOR , STATUS . L ) 

IMPLICIT  INTcGER(A-Z) 

******  LABELED  COMMON  /G32BIT/  ******* 

COMMON  /G32  9!  T /MASK (32 ) , CCMASK ( 32) . L I B IT ( 32 ) ,L ZB  !T( 32) 

INTEGER  MASK. COMASK, LIBIT. LZBIT 

COMMON /BUFF /PEL BUF (60.2 ) , C08UF(240  ) . 0TBUF( 60 . 2 ) . 

*  STF3UF(  240  )  .  STAT(  3000) 

COMMON/HUFF/CODE<3 .92. 2) ,C3DER0( 3. 9 ) 

COMrtON/ERAY/ERRQRS<  2500) 

**********************  FIlE  DEFINITIONS  ******************** 

CO MMON/FILE S/TERM, LPFIL, PELF IL.OTF I L. ERF IL 

********************  LABELLED  COMMON  VARIABLES  ********************** 

COWMON/IVAR/PELMAX.VRES.EPHASE.CMPMAX.ERRMOD.LINMAX.K 
CO MM ON /PV  AR /IN_  NN3 , 3  TLNNO ,OTEL  W» I NELP . CDELP, OTELP, CDELW , 

*  CDELCT, INELCT.TCDATA.TCDEL.ERRPNT.ERROFF.ERRLIM, 

*  ERRCNT , I NLNCT .CONSEC .ONEC NT .LNNOBF . WRCBUF.LPACK , 

*  INCOD. INRcF.OTCOO.OTREF, TSTFBT 
COMMON /I CHAR/DD, I  I , MM.TT.NN.YY 

COMMON/.  051  C/SEARCH,  D I  AG.  SYNC  .LSS,  WR I TE , ZERO , LEF T ,C HCOL . ONE 
LOGICAL  SEARCH, DI AG. SYNC. LSS .WRITE. Z ERO. LEFT . C HCOL .ONE 

BEGIN  DECODE  LOOP!  RETRIEVE  NEXT  COOE  WORD  LENGTH  (L) 

000  CONTINUE 
L*0 

WRO0UF=O 
LPACK*0 

002  LENBIT=CODE(l .INDEX. COLOR) 

CALL  GETL (LEN8 IT  «  M3  OE . LB I TS, L ) 

IF(DIAG)  WRITE(TERM,1003  )  LENBIT .MODE.LBITS.L 
003  FD  RM  AT  (  21  6,Z8,I6) 

GO  TO  (1040.1200.1205,1190).  MODE  -  -  -  - 

STOP  1  040 
040  CONTINUE 

IF(L3ITS,EQ. C0DE(3, INDEX, COLOR) )  GO  TO  1100 

NO  MATCH!  ADVANCE  CODE  WORD  INDEX  VIA  DECODE  THREAD 

INDEX*  CQ0£( 2. INDEX, COL OR) 

-  IF(INOEX.GE,93)  GO  TO  1190  ... 

IF(C0DE(1, INDEX, COLOR). EQ. LENBIT)  GO  TC  1040 

CODE  WORD  LONGER;  FROM  THE  TOP  '  “ 

GO  TO  1002 

MATCH  FOUND 

100  CONTINUE 

CDELP=CDELP*L 

NOT  AN  LSS 


TEST  FOR  MAKE  UP  OR  TERMINATING  COOE 
RUNLEN  =  INOEX-l 

IF (I  NO EX. Gc .65 )  RUNLEN* ( INDEX-64 )*64 
IF (RUNLEN.EQ.O)  GO  TO  1160 


H-12 


UNCLASSIFIED 


UNCLASSIFIED 

IF  {COLOR.EQ.l  )  GO  TO  1155 
IF {RUNL5N.LT. 0)  STOP  1100 
C 

C  ADO  SLACK  ?UN  TO  OUTPUT  SUFFER 
C 

DO  1150  I*1,RUNLEN 

CALL  M 129 { COLOR- 1 .  OT  BUFU  .  OTCQD  >  ,QT  SLP  .  1 ) 

OT  EL  P*  OTELP ♦ 1 

IF  (QTELP-1  .GT. PELMAX)  GO  TO  1180 
1150  CONTINUE 

GO  TO  1160 
C 

C  ADD  WHITE  RUN  TO  OUTPUT  BUFFER  (BY  DEFAULT) 

C 

1155  CONTINUE  . .  . 

OT SLP* OTELP  ♦RUNLEN 
IF (DTELP-1  .GT .PELMAX )  GO  TO  1180 
C 

C  OUTPUT  LINS  LESS  THAN  OR  EQUAL  TO  MAX  SPECIFIED 
C 

1160  CONTINUE 

IF (INDSX.LT .65)  GO  TO  1170 

INDcX*  3  -  - . •  * 

GO  TO  1300 
C 

C  RUN  ADDED  TO  OUTPUT  lINEJ  LENGTH  LESS  THAN  OR  EQUAL  TO  PELMAX  11) 

C 

1170  CONTINUE 

CHCOL*  .TRUE. 

STATUS=1 

RETURN  . -  . .  -  —  -  "  . 

C  RUN  ADDED  UNTIL  PELMAX  EXCEEDED!  LINE  TOO  LONG  (2) 

C 

1180  CONTINUE 

IF(OIAG)  WRITE!  TERM.  11 85)  1 0T8UF  II  .  OTCOD)  .  1=1 . 60  ) 

1135  FORMAT  (6Z  10) 

ST  ATUS=2 

-  RETURN  . . . . .  . . . 

C 

C  NO  MATCH  FOUND  IN  CODE  TABLE  (3) 

C 

1190  CONTINUE 

STATUS=3  -  -  ■ 

RETURN 

C 

C  LS51  OETECTED  (4)  -  -  . . . . 

C 

1200  CONTINUE 
ST  AT  US  =4 
RE  TURN 

C  .  . —  - 

C  LSS2  OETECTED  (5) 

C 

-1205  CONTINUE  -  - - - - ■>  - 

STATUSES 

RETURN 

END  .  '  ~ 

SUBROUTINE  TWOOI M( I NDE X ,C OLOR . STATUS . L) 

IMPLICIT  INTEGER  ( A- Z) 

C*******  LABELED  COMMON  /G32BIT/  ******* 

C  -  COMMON  /G32  SIT/MASM  32  )  »  COMASK  I  32  )  »L  I8ITI  32  >  .LZBITI  32)  - 
INTEGER  MASK, COMASK, LIBIT, LZBIT 
C 

COMMON /BUFF /PEL  SUFI  6  0,2  )  *CDBUF{  240  )  »0T8UF<  60, 2  )  • 

*  STF3UF(  240  )  ,  STAT(  3000) 

COMMON/HUFF/COO£{3.92,2).  C0DERD13.9) 

COMMON  /ERAY/ERRORSt  2500) 

C********+*************t  FILE  DEFINITIONS  ******************** 

COMMON/FILES/TERM,LPFIL,PELFIL.OTFIL.ERFIL 

C 

C  ***** ♦*  **  **  ***** ♦*♦*  *  LABELLED  COMMON  VARIABLES  ********************** 
C 

COMMON /I  var/pslmax,  vrss  ,  ephas  e  .  cmpmax  ,  errmcd,  l  inmax.k 

COMMON/3VAR/IN..NND,OTLNNO  .OTSLW.INElP.CDELP.OTELF.CDELW, 

*  CDELCT, inzlct.tcdata.tcdel.errpnt.erroff.srrlim, 

*  ERR  C NT , I NLNC  T  .CON S5C  «ONECNT ,LNNOBF , WRDBUF, LPACK , 

*  INCOD,  I  NR£F ,  OTCO  D,  O  TREF  *  T  STFBT 
COMMON/I  CHAR/DO, II , MM. TT  »NN, YY 

COMMON/.  OGI  C/SEA^CH.DIAG,  SYNC  ,LSS.  WRITE,  ZERO  .LEFT.  C  HCOL  .  ONE 


H-13 


UNCLASSIFIED 


UNCLASSIFIED 

LOGICAL  SEARCH,  DI AG, SYNC. LS5 .WRITE .  ZERO. LEFT, CHCOL. ONE 
C 

C  BEGIN  DECODE  LOOP;  RETRIEVE  NEXT  CODE  XORD  LENGTH  (L) 

/■» 

'*1000  CONTINUE 
L«0 

WR0BuF*0 
LPACK*  0 

1002  LENUIT*CODiRO(l , INDEX > 

CALL  GETHLENBIT.MQDE.LBITS.L) 

IF  (D IA  G )  *KIT£(TERM, 1003)  LENB I T .MODE »LB I T S. L 

1003  FORMAT (21 o, 23,16) 

GO  TO  (1040. 1200, 1205, 1190)  ,  NODE 
STOP  1040 
1040  CONTINUE 

IF (L31 T ~ , E J • CD DER D( 3, INDEX) )  GC  TC  1100 
C 

C  NO  MATCH;  ADVANCE  CODE  WORO  INDEX  VIA  DECODE  THREAD 
C 

INDEX*  COO£RD( 2, INOEX) 

IF  (INDEX,  GE.B  )  GO  TO  1190 
IF(C0DER.)(1,  INDEX).  EU.LEN8IT)  GO  T3  1040 
C 

C  CODE  WORD  LONGER;  FROM  THE  TOP 
C 

GO  TO  100  ? 

C 

C  MATCH  FOUND 
C 

1100  CONTINUE 

COELP-OcLPH. 

C 

C  NOT  an  LSS 

c 

c 

c  FIND  U1  AND  U2 
C 

AO«OTELP 

IF (OTELP.EQ.l )  AQ*0 
POL-COLOR-1 
C 

C  DETECT  B 1 
C 

l  *  AO  4l 

IF<  I  .GT.3ELMAX)  GO  TO  65 
PELM 1*  0 

IF(AO.EQ.O)  GO  TO  50 

PELM1* I4B(0TBUF( 1.3TREF ) ,A0,l ) 

50  CONTINUE 

PEL*I4B( 0TBUF< 1 .OTREF) ,1 ,1 ) 

IF (PEL  ,N£ ,PELM1 )  GO  TO  70 
60  CONTINUE 
PELM l* PEL 
1*141 

1F(  I.LE.PELMAX)  GO  TO  50  -  -  -  -  -  - 

65  CONTINUE 
81*1 

GO  TO  92 
70  CONT INUE 

IF (PEL .NE, POL)  GO  TO  90 
GO  TO  60 

90  CONTINUE 

B1*I  -  -  -  — . 

FQL*PEL 

C 

C  DETECT  B2 
C 

1*8141 

IF(I.GT.PELMAX)  GO  TO  92 

91  CONTINUE 

PEL* I4B(0TBUF( 1, OTREF), 1,1)  -  -- 

IF  (PEL. NE. POL)  GO  TO  92 


UNCLASSIFIED 


RUN.EN*a2-0T£LP 
CHCOL* «F A LsE. 

GO  TO  (I 1 55,11*5) .COLOR 

HORIZONTAL  mode 

200  CONTINUE 
^ NTR^* 3 

CALL  ONEDIMJENTRY. COLOR. STATE. L> 

GO  TO  (210. 1190. 1190, 1  200. 1205). STATE 
210  CONTINUE  _  „ ,  . 

COLQR*MOO<COLOR*2»  2  > ♦  1 

CALL  VOHED  IN  <  ENTRY.  COLOR  *  STATE .b  » 

GO  TO  (220, 1180. 1190, 1200, 1205). STATE 
220  CONTINUE 

CHCOL*  .TRUE. 

GO  TO  1160 

c 

C  VERTICAL  MQOE  Al  B1  *0 

C300  CONTINUE 

RUt*.EN*ai-OTELP 
CHCOL*.TRUE.  _ 

GO  TU  (1 1  55«ll*s)  .COLOR 

C  VERTICAL  NODE  VR1  A 13 1*1 
C 

400  CONTINUE 

RU  -NL  EN  =3 1  -0  T  EL  P  *  1 
CHCOL».TRUE.  _  •' 

GO  TO  (11 55. 11*5) .COLOR 

C  VERTICAL  MODE  RIGHT  AIB1>1 
C 

500  CONTINUE 

RUNLEN*S 1 -0 TELPT2 

01  RECT-l 
510  CONTINUE 
L*  0 

tfRCbUF *0 
LPACrt*0 

CALL  GETt  (1.VM0DE.  -&1TS.L) 

GO  TO  (520. 1200.1205.1 190). VMOOE 
520  CONTINUE 

CDELP*CDELP+1 
IF (L8I T5)  525.530.5*0 
525  STOP  5  25 

530  rum!en*runlen*( 1*0IRECT) 

GO  TO  510 
5*0  CONTINUE 

CHCQL*  .TRUE. 

GO  TO  (1155, 11*5). COLOR 

C  VERTICAL  MODE  LEFT  VL1  AIB1*1 

°600  CONTINUE 

RUNLEN-*B1  -OTElP-1 

goCto*  ai55*.ll*5>. color 

C  VERTICAL  MODE  LEFT  A1B1>1  •  ' 

C700  CONTINUE  -  ~ 

RUNL=N*B1  -OTELP-2 
DIRECT*-! 

GO  TO  510 

C  ADD  BLACK  RUN  TO  OUT* UT  BUFFER 

C  •  •  '  - . - 

11*5  CONTINUE 

IF  (HUNLEN )  1190.1160,11*7 
It  *7  CONTINUE 

CALL  12  B ( COLQR-1  .OTBUF(l.OTCOD) .CTELP . 1 ) 

°f(otelp-i!gt.pelmax)  go  TO  1180 
1150  CONTINUE 

GO  TO  1160 

C  ADO  KHITE  RUN  TO  OUTPUT  BUFFER  (OY  DEFAULT) 


'~'~ty"-‘  ■•"■-*v‘,i  -^.?J''''  ,'*''*'>'  ■  %'  ’  . 


*.  Mf 


UNCLASSIFIED 


C 

U55  CONTINUE 

IF(RUNL£N.uT.O>  GO  TO  1190 
OTELP=GTELP*RUNL  EN 
IF(QTELP-l.GT.PSLMAX)  GO  TO  1180 

C 

C  RUN  ADDED  TO  OUTPUT  LlNci  LENGTH  LESS  THAN  OR  EQUAL  TO  PELMAX  (1) 
C 

1160  CONTINUE 
ST  AT  US  =1 
RETURN 
C 

C  RUN  AOOED  UNTIL  PELMAX  EXCEEDED;  LINE  TCC  LONG  (2) 

C 

1180  CONTINUE 

IF»DIAG)  KRITEC TERM.118L)  < OTBUF 1 1 .OTCCD ) . 1*1 .60  ) 

1185  FORMAT  <6Z12  ) 

ST  ATUS=2 
RETURN 
C 

C  NO  MATCH  FOUND  IN  CODE  TABLE  <3) 

C 

1190  CONTINUE 
STATUS=3 
RET JRN 
C 

C  LSS1  DETECTED  <♦) 

C 

1200  CONTINUE 
STATUS** 

-  RETURN 
C 

C  LSS2  DETECTED  (5) 

C 

1205  CONTINUE 
STA7US=5 
RETURN 
£  N  D 

SUBROUTINE  STUFF ( C08UF . STFB UF , STFB I T , CDELCT) 

IMPLICIT  INTEGER!  A— Z  ) 

DIMENSION  CDBUF<240) ,3TFBUF(240) 

C* ******  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  /3  3281  T/.MASK!  32)  .C0MASKI32)  ,LIB2T(32)  ,LZBIT<32) 

INTEGER  MASK*  COMASK  .LIBIT, LZBIT 
C 

C  •  . 

C  INITIALIZE  STFBUF  TO  0 
C 

DO  50  1=2,240 

STFBUF  (I  )=0 
SO  CONTINUE 
LI CNT=  0 
1=32+1 +8 

.  J=  I  - - 

STFaUFCl  )  =CDBUF(  1  ) 

C 

C  PICK  UP  LSS  -  • 

C 

LSS=  148!  CD3UF (  2)  »  l  ,  8) 

CALL  M  I2B(LSS«  STFBUF  (  2  )  •  1  •  8  ) 

100  CONTINUE 

-  POL=  I4S(  CDBUF,  1,1)  . . - 

IF (PQL.EQ.l  )  GO  TO  110 
L1CNT=0 

GO  TO  150  - 

110  L 1 CN  T=  LI C  NT + 1 

CALL  M 12 3 {POL*  STFBUF* J  ,  1  ) 

150  CONTINUE 
1=1*  l 

.  -  J=U+1  -  -  - - - - 

IF (L1C NT, LE • v )  GO  TO  200 
C  CALL  M 123(0, STFBUF, U, 1  )  NOT  NECESSARY 

. L1CNT=0  “■  ’  - 

J*J+l 

C  TEST  IF  FINISHED 
C 

—  200  CONTINUE . *  - - - 

IF( I .LE. CDELCT)  GO  TO  100 
STFB IT =J- l -CDELCT 

CDELCT=J-1  •  -  •  -  - - -  -■  ■ 


I 

l 

I 

j 

t 

T 

* 

; 

\ 


t 


'•ft! 

*P'. 

$ 

Wj 


.j-i 

’•w 

*  : 
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UNCLASSIFIED 


*  *  * 


UNCLASS  1 F  ItO 


RETURN 

END 

SLOCK  DATA 
C 

IMPLICIT  INTEGER! A-Z) 

Z***********  ************  FILE  DEFINITIONS  ******************** 

c 

COMMON/P  I LES/TERM.lPF I L. PELF IL. OTF IL, ERF  1L 
C 

COMMCN/0UFF/PEL  8UF  (  60  »  2  )  .  COSUF  (  240  )  *  OTBUF  (  60, 2  )  . 

•  STF  BUF ( 2  40 )  ,  STAT(3000  ) 

COMWON/HUFF/CODEU,  92. 2 ) • CODERS {2*9} 

CO MM CN/E KAY /ERRORS (2500) 

q*******  **************  LABELLED  COMMON  VARIABLES  ***** *44 *************  * 

c 

COMMON /I VAR/PEuMAX ,VRES. EPHASE, CMPM AX. ERRMQO.L INMAX ,K 
COMMON /PV  AR/ I NLNND .OTLNNO.CTELW, INELP  .  COEL P , OT ELP .CDELW , 

COELCT ♦ INELC  T  »TC  OAT  A.TCDEL.ERRPNT . ERRCFF.ERRLIM. 
EWRCNT , INLNCT .CCNSEC .CNECNT .LNNOBF , WRDBUF .LPACK , 
INCOD, 1 NKEF , OT COD. OTREF . T  STFBT 
COMMON /I C HAR /DO* I  I .MM. TT.NN.YY 

COMMON/- OGI C/SEAR CH.D I  AG. SYNC. LSS. WRITE, ZERO.LEFT.CHCOL. ONE 
LOGICAL  SEARCH, 01 A G. SY NC .LSS. WRITE. ZERC. LEFT. CHCOL. ONE 


C 


C 


DATA  TERM.LPFIL. PELF IL.QTFIL, ERF IL/5 .6,1.2, 3/ 

DATA  DD, I I.MM.TT.NN. YY/*D*. *t • • «M» ,»T  « ,»N» ,•  Y* / 

DATA  PEL MAX .VRES  .  EPHA5 c. CMPM AX , ERR MOD.L 1 NMAX/X 728, 2. 0. 96. • T*  *  3000 
DATA  K/2/ 


DATA  DIAG/. FALSE 


OAT  A 

ODE(  1  ♦ 

X 

1  ) 

CODEC  2. 

X 

1  > 

.CODEU. 

X 

)/ 

8, 

70.Z0035/ 

DATA 

CODE ( 1 . 

2 

X  ) 

CODE (2. 

2 

1  ) 

» CODEt  3 . 

2 

)/ 

6  . 

90 , Z  0007/ 

DATA 

CODE! 1  . 

3 

1  > 

CODE  t  2 . 

3 

1  ) 

•  CODE (3  * 

3 

)  / 

4  , 

4.Z0007/ 

DATA 

ODEU  • 

4 

X  ) 

CODE ( 2 . 

4 

X  ) 

.CODEt  3. 

4 

)/ 

4. 

5.Z0008/ 

DATA 

CDDct  1  . 

5 

X  ) 

CODE (2. 

5 

1  ) 

,CQDE(3. 

5 

)/ 

4. 

6. ZOOOB/ 

DATA 

CD  DEI  I . 

6 

X  ) 

CODE (2. 

6 

X) 

.  CODEt  3. 

6 

>/ 

4. 

7.ZOOOC/ 

DATA 

CODE ( l , 

7 

X  ) 

CODE  1 2  . 

7 

1  ) 

.CODEU. 

7 

)/ 

4  . 

8.Z000E/ 

DATA 

CODE  (  1  . 

8 

1 ) 

coDEta. 

8 

X  ) 

.CODEt  3. 

8 

)/ 

4. 

9.ZOOOF/ 

DATA 

CODE  ( 1  . 

9 

1 ) 

CODE (2. 

9 

X  ) 

.COOEU. 

9 

>/ 

5. 

10. Z 00 13/ 

DATA 

CODEt  1  , 

XO 

1  > 

CODEU. 

XO 

1 ) 

.  CGDc  t  3 • 

XO 

)/ 

5. 

11  , ZOO  1 4/ 

DATA 

CODE!  it 

n 

l ) 

CODE ( 2. 

11 

1 ) 

.CODE! 3. 

XX 

)  / 

5. 

12.Z00C7/ 

DATA 

CODEU  . 

12 

1 ) 

CODE ( 2 . 

12 

X  ) 

,  CODE  O. 

X  2 

)/ 

5. 

65, Z0008/ 

DATA 

CD  DEI  I  . 

13 

X  ) 

CODE (2, 

13 

1  > 

.CODEU. 

13 

>  / 

6  . 

14,20008/ 

DATA 

CODE  (  1  . 

X  4 

\ ) 

CODEU. 

14 

X  > 

•  COOEU. 

14 

)/ 

e. 

X  5. Z  0003/ 

DATA 

CODE! 1. 

15 

1 ) 

CODEU. 

15 

l  > 

. CODEU  . 

X  5 

1  / 

6. 

16  *  ZOO  34/ 

DATA 

CODE  ( 1  . 

16 

1 ) 

CODE ( 2  « 

16 

X  ) 

.CODEt  3. 

X  6 

)/ 

6  » 

X7.Z0035/ 

DATA 

CDDEI I  . 

17 

1  > 

C  ODE ( 2  , 

1  7 

X  ) 

.COOEU, 

17 

>/ 

6  . 

18. Z002A/ 

DATA 

CODE!  1, 

18 

1 ) 

CODE (2, 

13 

1 ) 

.CODEt  3, 

1  8 

)  / 

6  . 

19.Z002B/ 

DATA 

CODEt  I  . 

19 

X  ) 

CODE  t  2  « 

19 

X  ) 

.CODEU, 

19 

)/ 

7, 

20. Z  002  7/ 

DATA 

CO  DEI  X. 

20 

1 ) 

CODEt  2, 

20 

X  ) 

.CODEU. 

20 

)  / 

7. 

21 .ZOOOC/ 

DATA 

CODEt  X . 

21 

X  ) 

CODE ( 2  « 

21 

X  ) 

.CODEU. 

21 

)/ 

7. 

22,20008/ 

DATA 

CODE!  1  . 

22 

X  ) 

COOEU, 

22 

X  ) 

.CODEU. 

22 

)/ 

7. 

23.Z00X7/ 

DATA 

CO  DE IX. 

23 

X  ) 

CODEt  2. 

23 

1  > 

.CODEt  3. 

23 

)  / 

7, 

24.Z0003/ 

DATA 

CODE! X. 

24 

X  ) 

CODE (2. 

24 

X  ) 

.CODEU. 

24 

)/ 

7. 

25, 20004/ 

OAT  A 

CODEU. 

25 

X  ) 

CODEt  2. 

25 

X  ) 

.CODEU. 

25 

1  / 

7. 

26.Z0028/ 

DATA 

CODE I  X • 

26 

X  ) 

CODE ( 2. 

26 

1  > 

.  COOFU. 

26 

>/ 

7. 

27.Z002B/ 

DATA 

CODEC  1. 

27 

X  > 

CODE ( 2  , 

27 

X  ) 

.CODE \ 3  « 

27 

)/ 

7, 

28, Z0013/ 

DATA 

COOEU. 

29 

X  ) 

CODEt  2. 

28 

X  ) 

, CODEU, 

28 

)  / 

7, 

29.Z0024/ 

DATA 

CDDEI X , 

29 

X  ) 

CODEt  2  « 

29 

X  > 

.CODEU. 

29 

)/ 

7, 

68 , ZOO X  8/ 

DATA 

ODEtl. 

30 

1 ) 

CODEU. 

30 

X  ) 

, CODEU. 

30 

)  / 

e. 

31 .Z0002/ 

DATA 

CODEU  . 

31 

1 ) 

CODEU* 

31 

1 ) 

.CODEU. 

31 

)/ 

8  • 

32.Z0003/ 

DATA 

CODE!  X. 

32 

l ) 

CODEt  2. 

32 

X  ) 

.CODE (3. 

32 

)/ 

e. 

33.Z00X A/ 

DATA 

CODE  IX. 

33 

X  > 

CODEU. 

33 

1  > 

.CODEU. 

33 

)/ 

6. 

34.Z001B/ 

DATA 

CODE! X, 

34 

1 ) 

CODEt  2. 

34 

X  ) 

.CODEU. 

34 

)/ 

8, 

35.Z0012/ 

CAT  A 

CDOE(  X. 

35 

1  > 

CODE ( 2. 

35 

X  ) 

.CODEU. 

35 

)/ 

8, 

36.Z001 3/ 

DATA 

CODEU  . 

36 

X  ) 

CODEU. 

36 

X  ) 

.COOEU. 

36 

)/ 

8* 

37.Z0014/ 

DATA 

CDDEI  X. 

37 

X  ) 

CODEt  2. 

37 

X  ) 

.CODEt  3  * 

37 

)/ 

8. 

38.Z00X5/ 

DATA 

CDDEI.;  » 

38 

X) 

CODEU. 

38 

X  ) 

.CODEU. 

38 

)/ 

8, 

39.Z0016/ 

DATA 

CODEt  X, 

39 

X) 

CODE ( 2  « 

39 

1) 

♦CODE (3. 

39 

)/ 

8, 

40  «  ZOOX  7/ 

DATA 

COOEU. 

•*0 

1 ) 

CODE ( 2 . 

40 

X  ) 

.CODEt  3. 

40 

)/ 

8  « 

41  .  Z002  6/ 

OATA 

CODEt  X  » 

4X 

X  ) 

CODE (2. 

41 

X  ) 

.COOEU. 

41 

>/ 

8, 

42.Z0029/ 

DATA 

CODE!  1. 

42 

X  > 

CODEt  2. 

42 

1 ) 

.CODEU. 

42 

)  / 

e. 

43.Z002A/ 

DATA 

CODEU  , 

43 

X  ) 

CODEU. 

43 

1 ) 

.CODEU. 

43 

)/ 

a. 

44.Z002B/ 

DATA 

CODE!  X. 

44 

X  ) 

CODEU. 

44 

1) 

. CCUE (3  . 

44 

)/ 

8. 

45  » ZOOHC/ 

DATA 

CODEU  . 

45 

X  ) 

CODE (2. 

45 

X  ) 

.CODEU, 

45 

)/ 

8  9 

46.Z002D/ 

DATA 

CODEt  X, 

46 

X  ) 

CODE ( 2 • 

46 

X  ) 

.CCDEU. 

46 

)/ 

8, 

47.Z0004/ 

DATA 

CODCt  X. 

47 

1 ) 

CDDEI 2. 

4  7 

1 ) 

.CODEU. 

47 

)  / 

E. 

48 ,20005/ 

DATA 

CODEt  X, 

48 

X  ) 

CODE ( 2 . 

48 

1 ) 

, CODEU, 

48 

)/ 

e. 

49. ZOOOA/ 

DATA 

ODEt  1. 

49 

X  ) 

CODEt  2. 

49 

X  ) 

.CODEU. 

49 

)/ 

e. 

50, ZOOOB/ 

OATA 

COOEU  . 

50 

X  ) 

CODE  <  2 . 

50 

X  ) 

.COOEU. 

50 

)/ 

8  « 

61 .2005?'/ 

DATA 

CODEt 1. 

51 

1 ) 

CODE ( 2 . 

51 

1 ) 

.CODEU, 

51 

)/ 

8. 

52.20053/ 

DATA 

CODEU  » 

52 

1 ) 

CODEt  2, 

-  H-1 7 

52 

X  > 

, CCDEU. 

52 

)/ 

8,  33.ZC054/ 

UNCLASSIFIED 

UNCLASSIFIED 
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79 

2) 

•CODEC 

2. 

79.2 ) , CODEC  3 , 

79 

.  2 

)/  13, 

80 

Z  0073/ 

DATA 

CODEC  1. 

80 

2  ) 

.CODEC 

2. 

80,2) .CODECS. 

80 

.2 

)  /13. 

81 

Z0C74/ 

DATA 

codec; . 

31 

2  > 

.CODEC 

2. 

81,2), CODEC  3 • 

81 

,  2 

)  /  1 3. 

62 

20075/ 

DATA 

CODEC  1. 

82 

2) 

.CODEC 

2. 

82.2) .CCDEC3. 

82 

,2 

)  /  1  3 . 

83 

Z0076/ 

OATA 

CDDEC  1. 

83 

2  > 

.CODEC 

2. 

83. 2). CODEC  3, 

83 

.2 

)  / 1  3  • 

84 

Z  0077/ 

DATA 

CODEC  1. 

84 

2  > 

•  C00EC2  . 

84.2), CODE  1 3  » 

34 

.  2 

>/  13. 

85 

Z0C52/ 

DATA 

CODEC  1. 

85 

2) 

.CODEC 

2. 

85,2 ) .CODE ( 3 , 

85 

.2 

)  /13, 

86 

Z0053  / 

DATA 

CODE  Cl • 

86 

2  ) 

.  CODEC 

2. 

86,2). CODEC  3. 

86 

,  2 

1/13. 

87 

20054/ 

DATA 

CODEC  1. 

87 

2) 

.CODEC 

2. 

87,2) .CODE  C3 ♦ 

87 

.2 

)/13» 

88 

Z00S5/ 

DATA 

CODEC  1  • 

88 

2  ) 

.COf'EC 

2, 

88,2) .COOEC  3. 

88 

.  2 

)  /  1 3, 

89 

Z  005 A/ 

OATA 

CODEC  1  . 

99 

2) 

.CGOcC 

2  . 

89,2) .C0DEC3, 

69 

.2 

>/13, 

90 

2005B/ 

DATA 

CODEC  1. 

90 

2) 

.CODEC 

2, 

90,2), CODE { 3 , 

90 

.2 

)  /I  3. 

91 

20064/ 

OATA 

CODEC  1  . 

91 

2  ) 

.CODEC 

2. 

91 ,2), CODECS, 

91 

•  2 

)/  1  3. 

93 

Z  0065/ 

OATA 

CODEC  1. 

92 

2  ) 

.CODEC 

2. 

92,2) .CODE (3  . 

92 

.2 

)  /12. 

72 

Z0001  / 

DATA 

CO  DERDC  1 

.1 ). CODERDC 

2. 

1  ), CODERDC 3, 1  )/ 

4, 

2 

Z  E/ 

DATA 

CDOERDC 1 

.2). CODERDC 

2. 

2 ) , COOERO C  3 ,2  )/ 

4, 

8 

Z  F/ 

DATA 

CODER  DC  1 

.3), CODERDC 

2. 

3  ),  CODERDC  3.3  )/ 

1. 

4 

Z  0/ 

DATA 

CODERDC 1 

,4) .CODERDC 

2. 

4 ) , CQDERD  C  3 ,4  )/ 

3, 

6 

Z  4/ 

DATA 

OOERDC  l 

*5). CODERDC 

2. 

5  > .COOERD ( 3,5) / 

4. 

7 

Z  C/ 

DATA 

C3DERDC1 

.6) . CODERDC 

2, 

6  ),  CQOERDC  3,6  >/ 

3. 

5 

Z  5/ 

DATA 

CODERDC 1 

,7), CODERDC 

2. 

7 ) »  COOERD  C  3  .7 >/ 

4, 

1 

Z  D/ 

DATA 

ODERDC1 

. 8). CODERDC 

2. 

8 ), CODERDC 3,8)/ 

8. 

9 

Z  7F  / 

DATA 

CODERDC  1 

.9)  »  C 

ODERDC 

2. 

9  )  .  CODERD  C  3 .9  )/ 

8. 

10 

Z  7E/ 

END 
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COMPUTER  PROGRAM  CODE  LISTING 

l 


3M  ALGORITHM 


UNCLASSIFIED 


DSNAME*0003l.THR£EM.FCRT 


START  OF  OCEC  JPRINT  PROGRAM 
C  PROGRAM  THRESM 

implic  if  integSru-z) 

RE  At  CF3 .CF4.2RRATE 

C*******  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  /G329I T/MASK (  32  ) »CQMASK!32> »LI3IT!32) »L2BIT!32> 

INTEGER  MASK,  COMASK,  LIBIT.  L2BIT 
C 

C0MM0N/9UFF/P2L9UF ( 60, 2) , C08UF! 240 ), OTEUF (60.2  > , 

*  STF9UF ( 240  ) ,  STAT(3000) 

COMMON /HUFF /CO  OE (3,92,2 ) ,CCDERD(3«9) 

COMMON /ERAT/ERRORSt  2500) 

C******* **** ************  FILE  DEFINITIONS  ******************** 

■  cokmon/files/term,lpfil,pelfil, otfil. erfil 

C* ********** **********  LABELLED  COMMON  VARIABLES  ********************** 

COMMON/I  VAR/P ELMAX • VRE S , EP HA SE , C MPMAX , ERRMOO ,L I KMAX , K 
COMMON /PVAR/INLNN3,QTLNN0.0T ELM, INELP*  CDELP, OTELP.CDELW, 

*  CDELCT , I  Ns  LCT ,TCOATA ,TCDEL , ERR PNT , EfifiCFF, ERRL IM , 

'  *  ’  ERRCNT •  INLNCT , CONSEC  »LNN09F,KCNT ,  - 

*  I NCOD, I NRSF , OT  CQD.OTREF, STFBIT  »  VMMD 
COMM  ON /I CHAR/OD, I  I , MM , TT , NN , V Y 

COMMON/LOGI C/SEARCH, 01  AG, SYNC, LSS, WRITE. ZERO, LEFT. CMC OL. ONE 
LOGICAL  SEARCH. DI AG. SYNC. WRI TE.LEFT »CHC0L,3NE 


C 

C 


C 

C 

C 


REAO  INPUT  PARAMETERS 
90  WRITE! TERM, 100) 

100  FORMATCSPARAMETERS:  INPUT (*I)> 
R£AD(  TERM,  1 10  »£RR*90)  INSW 
110  FORMAT  (Al) 

IF  (INSW.EQ.OD)  GO  TO  315 
IF  ( IN  SW.NE ,11)  GO  TO  90 


OR  DEFAULT !«0I ?  •  ) 


READ  DIAGNOSTIC  SWITCH 


114 
11  5 


116 


C 

c 

c 


WRITER  TERM,  115)  —  . - 

FORMAT  (•  SOI  A  GNOSTIC  PRINTOUT?  (Y  OR  N) 

RE  AD  (TERM.110)  INSW 

IF(INSW.EU.YY)  GO  TO  116 

IF (1NSW.EQ.NN)  GO  TO  120 

GO  TO  114 

CO  NT  INUE 

DI AG=«  TRUE, 


REAO  MAXIMUM  NUMBER  OF 
120 
130 


PELS  PER  LINE 


140 


150 


CONTINUE 
WRITE! TER  M, 1 30 ) 

FORMAT!' SENTER  MAXIMUM  NUMBER 
READ (T  ERM , 1 40 • ERR=1 20 )  PELMAX 
F0RMATU4) 

IF (PEL  MAX ,GE.l .AND. PELMAX, LE. 172  8) 
WRITE! TERM, 150)  PELMAX 


OF  PELS  PER  LINE:  ») 


GO  TO  160 


C 

c 

c 


FORMAT! 'ONUMBER 
GO  TO  120 


OUT  OF  RANGE  (=',I6.')») 


READ  VERTICAL  SAMPLING 
160  CONTINUE 

. . WRITE!TERM,  170)  — - - - 

170  FORMAT! • SENTER  VERTICAL  SAMPLING:  • 
RE AD (T  ERM , ISO , ERR= 160)  VRES 
180  FORMAT  (12)  ~ 

IF (VRES.GE.1.AND.VRES.LE.10)  GO  TO 
WRITE!  TERM.  150)  VRES._„. 

GO  TO  160 
C 

-C - READ  PARAMETER  ■< - 

C 

190 


190 


CONTINUE 

WR  ITS! TERM, 192)  ' 

192  FORMAT  («  SENTER  PARAMETER 
-  -  READ! TERM , 1 40, ERR3 1 90)  K 
IF  (K  ,GS,1  •  AND, K,LE. 3000  ) 
WRITE!  TERM, 150)  K 
GO  -TO-  190  —  - 


READ  ERROR  PATTERN  PHASE 


k: 

GO 


'  ) 
TO" 


200 


J-1 


UNCLASSIFIED 


UNCLASSIFIED 

200  CONTINUE 

WR  ITS (  TERM, 210) 

210  FORMAT  (*  4SNTER  ERROR  PATTERN  PHASE:  •) 

RE A0( TERM *220  »ERR=2  00 )  EPHASE 

220  FO  M AT (II  ) 

IF (EPHASE.GE.0.AND.EPHASE.LE.3)  GO  TO  2*0 
WRITE(TERM,  150)  EPHASE 
GO  TO  200 

READ  MINIMUM  COMPRESS  ED  LINE  LENGTH 

240  CONTINUE 

WRITE*  TERM, 250) 

250  FORMAT  («  SEN  TER  MIMIMU.M  COMPRESSED  LINE  LENGTH:  •) 

READ  (T  ERM  .1 40  »ERR=2  *0 )  CMPMAX  -  ■ 

IFICMPMAX.GE. 0. AMO. CMPMAX.LE. 1728)  GO  TC  320 
WRITEITERM,  150)  CMPMAX 
GO  TO  240 

READ  NUMBER  OF  SCAN  LINES  TO  BE  PROCESSED 

320  CONTINUE 

•  RITE ( TERM*  330 ) 

330  FORMAT  (‘SNUM8ER  OF  SCAN  LINES  TO  BE  PROCESSED*?  *  ) 

READ! TER  M ♦ 1 40*  ERR *320)  LINMAX 
IF (LI NMAX  «  GE. 1 .AND. L2NMAX.LE.3000)  GO  TO  280 
WRITE* TERM, 150)  LINMAX 
GO  TO  320 

READ  ERROR  MOOE 

280  CONTINUE  . . . . 

WRITE*  TERM, 290) 

290  FORMAT (**ERROR  MODE*?  *  M*MANUAL*  T*TAPE  »N*NO  ERRORS)*) 

READ(TERM,1IO.ERR=280)  ERRMCO  . 

IF (ERR MOD. EQ. MM)  GO  TO  300 

IF*ERRM3D.EQ.TT)  GO  TO  315  .  .- 

IF (ERRMOO.NE.NN)  GO  TO  280 

GO  TO  350 


READ  ERROR  LOCATIONS 


300  CONTINUE  -  ' 

ERRLIM*! 

305  READ ( T ERM , 1 40 )  ERRORS (ERRLIM) 

IF (ERRORS  < ERR LI M) • EQ .9999 )  GO  TO  310 
ERRL  IM=ERRL  IM  +  l 

GO  TO  30  •  -  ~  - . . . 

310  CONTINUE 

ERRLI  M=E  1RLIM-1 

"GO  TO  350  ---  --- . 


.  READ  ERROR  TAPE  FILE  AND. OPEN  _ 

315  CONTINUE 
ERRLIM* l 

RE AO (ERFIL*3l 8 , END*31 7 )  ERRORS (ERRLIM ) 

"  ERflLIM^RRLl^l  “  ~  — *  -  * - 

316  READ* ERF IL»  318. END* 31 7)  ERRORS* ERRLIM) 

318  FORMAT  (1 16)  . .  . 

ERRORS  (ERRLIM)  =ERR0R  5*  ERRLI  M)  ERRORS  ( ERRLI  M-l  ) 
ERRLIM==RRLIM+1 

GO  TO  31  6  •  - - - 

317  ERRLIM=ERRLIM-1 

350  CONTINUE  . .  ’  - 


360  CONTINUE 

WRITE  INPUT  PARAMETERS 


WRITE* LPFIL. 400)  PELMAX, VRES.K .EPHASE.CMPMAX.LI NMAX  -  - 
400  FORMAT  (•  I  INPUT  PARAMETERS:  » / 

*  ‘OMAXIMUM  NUMBER  OF  PELS  PER  LINE=*.I6/ 

*  “  *  OVERTI CAL  SAMPLINGS  N=»,T4/  ~  - '  ' 

*  'OPARAMETER  K  =',14/ 

*  .  ‘OERROR  PATTERN  PHASE  *',14/  . 

*  'OMINIMUM  COMPRESSED  LINE  LENGTH  =».I4,»  BITS*/ 

*  *  0NUM8ER  OF  SCAN  LINES  TO  BE  PROCESSED  »»,26) 

IF  (ERRMOD  .SCJ.NN  )  WR  I TE  (LPF IL  ,  4 1  0  )  - . . . -  - 

410  FORMAT  CONO  ERRORS  INSERTED') 

IF  (ERRMOD.EQ.MM)  WRITE  (  TERM,  1  40)  (ERRORSd  )  ,1  =  1  .ERRLIM) 
IF (ERRMOD .EO.TT)  WR ITE (TERM, 420 )  ERRLIM 


UNCLASSIFIED 


fc1*  (X 


UNCLASSI  HIED 


420  FORMAT (1 1 2. »  ERRORS  OBI  A  I NED  FROM  ERROR  TAPE*) 

^* ****************** *  3EGIN  PROGRAM  ** ******** *4 * *44 » 4 *44 4**4 * 44*4** * ** 

C 

C  INITIALIZE 
C 

TCDEL*  0 
TC  DAT A=0 
ERRPNT  =1 
ERRCNT*0 
I NLNCT  =0 

ERROFF  =£PHA  SE41024 
COcLCT  =32 
OTELP=l 
CDS.P*  32*1 
CONSEC  =1 
INREF*  l 
INCOD-2 
0TREF=1 
OTCOO*  2 
KCNT=K 
STF8 IT*0 
C 

DO  800  1*1.240 
STFBUF (I  )=0 
coauFt I)  =  0 
80  0  CONTINUE 

DO  850  1=1.80 
OT  8UF  (  I.0TR£F)  =  0 
OT  BUF ( I,OTCOO)=0 
PSLSUF ( I • I NREF ) =0 
PEU3UFU.  INCOD  >=0 
850  CONTINUE 

SEARCH*. TRUE. 

SYNC*.  FALSE. 

WRITE*  .FALSE. 

C 

C  SEARCH  MODES  LOOK  FOR  EQLl  BIT-BY-BIT 
C 

900  CONTINUE  •  . 

CALL  GETL  3 ( 13, MODE .LBITS.L) 

GOTO  (910. 930. 930. 920). MODE 
ST03  900 
910  CONTINUE 
C 

C  E3L  NOT  FOUNDS  ADVANCE  POINTER  AND  TRY  AGAIN 
C 

CD  ELP*  CDELP+1  . - . 

GO  TO  900 
920  CONTINUE 
STOP  920 
930  CONTINUE 
C 

C  EOL  FOUND 
C 

SEARCH*. FALSE.  -  -  ~  •  —  -  -  •• 

CDELP*  CDELP +L 
IF (WRITE)  GO  TO  935 
WRITE*. TRUE. 

GO  TO  960 
935  CONTINUE 
C 

C  SET  OUTPUT  DECODE  LINE  TO  0  AND  WRITE  OUT 
DO  950  I*  1 , 60  -  • 

OT  BUF ( I,OTCOD)  =  0 
950  CONTINUE 

WR  IT E ( OTFIL  )  OTLNNO , PELM«X, { 0TBUF( r .OTCOD) .1  =1 ,60) 

CT  L  NNO  =L  N  NO  BF 
960  CONTINUE 

IF (MOD £-2) 9 65, 10  00,  900 
965  STOP  965 

1000  CONTINUE  *•  ■  -  .  ■  -  - 

C 

C  PERFORM  ONE-DTMENSIONAL  DECODE  OF  A  COMPLETE  LINE 
C  FIRST,  SET  0 JT PUT  3UFFER  TO  WHITE 
C  (  3NL  Y  BLACK  RUNS  WILL  BE  INSERTED: 

C 

DO  101 0  1=1 ,60 
>T3UF  (  1,0  TCQD)  =0 
10IJ  CONTINUE 
C 


) 


I 


i'  ’ 

h 


§ 


•3c 


HX 


f; 

ii 

li 


it, 

> : 


r 


*TT7!  , 


fe 

E 

f 


t 


i 


4 

\ 

* 

r* 


V-  •  ■*  - 


UNCLASSIFIED 


OTELP*  1 
C 

1020  continue 

call  QN£DJ(1NDEX,CDlOR, STATUS. L) 

GO  TO  (1030. 1070, 1070, 1035,  1040), STATUS 
C  1  2  3  4  5 

STOP  1000 

c 

C  HUN  AUDEC1  CHECK  -ENGTH  OF  OUTPUT  LINE 

c 

1030  CONTINUE 
ONE=.TRJc. 

IF (UTELP-l-PELMAX)  1031,1032,1050 

1031  CONTINUE 

IF (CWCULJ CaLQR*M0D(C0L0R*2.2 ) M 
INOE  X*  3 
GO  TO  1020 
3000  CONTINUE 
C 

C  PERFORM  TWO-DIMENSIONAL  DECOOE 
C 

c 

C  FIRST. SET  OUTPUT  SUFFER  TO  WHITE 
C  (ONLY  BLACK  RUNS  WILL  BE  INSERTED) 

C 

00  301 0  l<|  ,60 
OT  9UF (  I.OTCOD  )*0 
3010  CONTINUE 
C 

INDcXal 

COLOR* 1  ..... 

OTeLPxl 
VM  MD  *  0 
C 

3020  CONTINUE 

CALL  TW0D3( INDEX, COLOR. STATUS.L) 

GO  TO  (3030, 1070. 1070, 1035. 1040), STATUS 
C  1  2  3  4  5 

STOP  3000  -  -  . 

C 

C  RUN  ADDEO;  LOOK  FOR  NEXT  RUN 
C 

3030  CONTINUE 

ON  E=  *F  ALS  2* 

IF ( QTE LP— l — PELMAX)  3031.1032,1050 

3031  CONTINUE 

IF(CHCOLICOLOR=MOO(COLOR42,2)+1  . 

INDEX*  1 
GO  TO  30  20 
C 
C 

C  LINE  LENGTH=PELMAX  :  CHECK -FOR  FILL  AND  LOOK  FOR  EOL 
C 

1032  CONTINUE 

ZERO*- 1  -  . . . . . . . . . 

1033  CONTINUE 
ZERQaZERQ+1 

CALL  GETL3(  l  ,  MODE  .  LB  r  T  S  .  L) 

C 

GG  TO  (1034, 1050, 1050, 1050),  MODE  . 

C 

C  CHECK  FOR  FILL 

1034  CONTINUE 
C 

CDELP*  CDELP+L 
I F  (L  BITS  ,  £Q  ,0  )  GO  TO  1033 
C 

C  ONE  OETECTED;  CHECK  NUM3ER  OF  CONSECUTIVE  ZEROES 
C 

IF  (ZERO.  LE.  10)  GO  TO  1070  . - - -  --  ■ 

C 

C  EOL  FOUND;  CHECK  TYPE 
C 

CALL  GETL 3 ( l , MODE, LBITS.L ) 

IF(L3I TS.fcO.O)  HQDE=2 
IF  (LBITS.EQ  .1)  MODE* 3 
GO  TO  (10  70 ,1 060,1060, 1080), MODE 

C  PREMATURE  EOL  DETECTED 

C 

C 


J-U 


UNCLASSIFIED 


UNCLASSIFIED 


C  E0L1  OET  SCTED 
C 

103S  CONTINUE 

CDELP»CD£LP*L 

STATUS*4 

I  F { OTE  L? • LE  «  5 )  CONSEC*CONSEC«-l 
IF (CUN  SEC-2 )] 0  80,1  000. 2000 

c 

C  SOLE  DETECTED 
C 

1040  CONTINUE 

COELP*CDELP*L 
ST  ATUS*5 
C 

GO  TO  1080  - 

/• 

C  PROBLEMS. PROBLEMS 
C 

1050  ST  CP  1050 
C 

C  LINE  LENGTH  CORRECT,  EDi_  DETECTED  PROPERLY!  WRITE  OUTPUT  LINE 
C 

1060  CONTINUE 

CD  EL  P*  COELP  +L 

WR  ITE(  OTF  IDOTLNND  ,  PEL  MAX,  (OTBUFU  .OTCCD)  .1*1,60) 

CTLNNO*LNNDBF 
CONSEC  *1 

IF (ONE)  SYNC*. TRUE. 

Ti MP*OTREF 
OTREf*OTC  00 

OT  C3  0*7£MP  •  • 

IF (NUDE. £0. 2)  GO  TO  1000 
GO  TO  3000 
C 

C  LINE  TOO  LONG  OR  NO  MATCH 
C 

1070  CONTINUE 

WRITE*  .FALSE. 

C  •  .  . .  .  -  . 

C  LINE  SHORT 
C 

1080  CONTINUE 

IF(  .NOT.  SYNC)  GO  TO  1090 
C 

C  WRITE  LAST  GOOD  LINE 
C 

WRITE(QTFIL)  OTLNNO,PELMAX.(OTBUF(I,UTREF).I*1,60I 
SYNC*. FALSE. 

GO  TO  1110 
1090  CONTINUE 
C 

C  WRITE  A  WHITE  LINE 
C 

00  1100  1*1.  60 

••  1100  OTBUF(  I,OTCaO)*0  ~  . -  -  -  ■  - 

WRITE! OTFIL)  0TLNN3 .PELMAX, { OTBUF( I .CTCOO) ,1*1 .60) 

1110  CTL 1N0=LNN09F 

IF  (STATUS .ED. 4)  GO  TO  1000 
SEARCH*. TRUE. 

GQ  TO  900 
C 

C  END  OF  MESSAGE 

C  -  -  --  -  -  - 

2000  CONTINUE 

WR  ITE<  LPF IL , 2010)  CONSEC 

2010  FORMAT  COENO  OF  MESSAGE  DETECTED  (»,I  R,  •  EOL*»S)») 

C 

C  REPORT  COMPRESSION  FACTOR,  ERROR  SENSITIVITY  FACTOR, BIT  ERROR  RATE 
C 

ERRATE*FLOAT(ERRCNT )/FLOAT(TCDEL  > 

-  WR ITE( LPF 1 L , 2020 )  TCDEL.TCDATA.STF8 IT , INLNCT, ERR ATE 

2020  FORMAT ( • OTQTAL  NUMBER  CF  CODED  BITS  *  *,18/ 

*  'OTOTAL  NUMBER  OF  CODED  DATA  BITS  *  *.18/ 

*  • OTOTAL  NUMBER  OF  2-DIM  LINES  *  '.IS/ 

*  ‘OTOTAL  NUMBER  OF  INPUT  LINES  PROCESSED  =  ‘.18/ 

*  ‘OBIT  ERROR  RATE  *  '.GI4.6) 

C 

CALL  STATS(STAT, INLNCT, DIAG) 

. .  CF3* FLOAT (PELMAX ) *FLOAT( INLNCT ) /FLOAT ( TCDEL ) 

CF  4*FL0AT( PELMAX) 4FL0AT( INLNCT ) /FLOAT ( TCOATA ) 

C 

WRITE! LPF I L ,2030)  CF3.CF4 


J-S 


UNCLASSIFIED 


:  nf>r>  nrtn  no  no  n  no 


UNCLASSIFIED 


2030  F3RMAT<*OCO*«PRESSlON  FACTOR  FOR  G3  MACHINE  CCF3)  **,F8.4/ 

♦  *0  COMPRESS I  ON  FACTOR  FOR  GA  MACHINE  ( CF  4 )  **,F8.4) 

C 

CALL  E RRMES  (PE» 8UF  »  0  T8UF  *PELMA X  ,  VRES .ERRCNT ) 

C 

ST  CP 
£  N  J 

SUBROUTINE  GET  L3(L8ITS  »MODE  *  WRD.  1. ) 

IMPLICIT  INTEGER!  A-Z  ) 

*»**♦♦♦  LABELED  COMMON  /G32eiT/  ******* 

COMMON  /S3231 T/MASM  32  * . COMA SK ( 32 > .LIBIT (32)  .L2SITC32) 

INTEGER  MASK*  CUM ASK .LIBIT » LZB I  7 

COMMON /BUFF/PEL8UF(  60. 2) ,CDBUF( 240> ,OTBUF(60.2> * 

•  STFBJF (240  ) »  STAT!3000  > 

COMMON/HUFF /CODE I  3, 92. 2) ,CODE«D(3.9) 

COMMCN/ERAY/ERRORS (2500  I 

*********************  LABELLED  COMMON  VARIABLES  ********************** 

COMMON/I VAR/PELMAX . VRES . EPHASE.CMPMAX. ERRMOO.L INMAX.K 
COMMON /^V  AR/IN-NN3 . OTLNNO . OTEL  M . I NELP .CDELP.OT  ELP .CDELW . 

•  COELCT . INELCT .TCDAT  A.TCOEL .ERR  PNT . ERfiOFF.ERRLIM, 

*  ERRCNT . I NL  NCT .CON SEC .LNNCBF ,XCNT . 

•  INC30. INR5F.OTC0D.0TREF, STFBIT.VMMD 
COMMON/ICHAR/OD.l 1 .MM.TT.NN.YY 

CO MM  aN/_OGI C/SEARCH. OIAG. SYNC .LSS. MR! TE . ZERO. LEFT .CHCOL. ONE 
LOGICAL  SEARCH » DI AG. SYNC.  HR ITE. LEFT . CHCOL. ONE 

******* *********************  BEGIN  PROGRAM  *************************** 

MODE*4  •-*  - . —  ■ 

RETRIEVE  NEXT  BIT  FROM  COBUF 
100  CONTINUE 

ENCOOE  A  NEW  LINE  IF  NECESSARY 

»F<LBI TSfCDELP-l.LE. COELCT I  GOTO  200 
IF (COELCT-CDELP*! )  170.190.180 
170  STOP  170 
180  CONTINUE 

STFBUFt  i)=I  4B(  STF8UF  .  COELP  .COELCT— CDELPM  ) 

190  CONTINUE 

COELP* 32- (COELCT-COELP) 

CALL  ENC003 

200  CONTINUE  —  -  - - — -•  •  - 

WR0*I4  8(  STF3UF.C3ELP.LBI  TS) 

L*LBITS 

IF  (L.LT.  1  3)  GO  TO  250 

IF  (WR0.EQ.C0DERD(3,6)  )  GO  TO  300 

IF (WRO  «£Q •CQDER0I3 .711  GO  TO  400  .  .  _  . 

250  CONTINUE 
MC  0E»  1 

300  CONTINUE 
MCDE*2 

RETURN  . .  • 

400  CONTINUE 
MODE  *3 
RE  TURN 
ENO 

---  SUBROUTINE  ENCO03  -  -  - -  - -  . 

C 

IMPLICIT  INTEGER (A-Z ) 

C  -  • 

c*******  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  /G 3291  T/M ASK  (  32) .COMA SK( 32 ) .L I B I T (3 2) .LZ8IT(32) 

INTEGER  MASK, COMASK, LIBIT, LZBIT 

COMMON  /BUFF/P  EL  B'JF(  60,  2).CDBUF(  240)  ,OTBUF(  60.2)  . 

*  STFBUF1 240 ) ,  STAT(3000) 

COMMON /HUFF /CO  DE( 3. 92. 2) .CODERD ( 3,9) 

CO  MM  CN/E  RAY /ERRORS  (2500) 

C***********************  flLE  DEFINITI CNS  ******************** 

C 

COMMON /FI LES/TERM. LPFI L , PELF IL, OTF IL . ERF IL 

c*********************  LABELLED  COMMON  VARIABLES  ********************** 
C 

COMM ON/I VAR/PELMAX, VRES. EPHASE.CMPMAX, SRRMOD.L INMAX.K 


J-6 


UNCLASSIFIED 


non  on  n  nnn  o  noon  no  o  non  non  n  noon 


UNCLASSIFIED 

COMMON  /P  V  AR  / 1 NLNNO. OT  LNNO  , OT EL  W  • INSLP *  CDEL P t  OT  ELP.CDELW » 

*  CDELCT.  INELCT, TCOATA.TCDEc ,ERRPNT.ERRCFF.ERRLIM, 

*  ERRCNr, inlnct.ccnsec.lnnobf.kcnt, 

*  INCOD, I NREF.CTCCD.OTREF, STFB IT , VMMD 
CO 4M0N/ICHAR/DD,  II , MM , TT , NN , YY 

CO  FMQN/L QG 1 C/ SEARCH. 0 1  AG , SYN C . LS S , WR IT E . ZERO , L EFT . CHCCL , ONE 
LOGICAL  SEARCH, DIAG.SYNC.WKI TE .LEFT, CHCOL, ONE 

**********************************  BEGIN  PROGRAM  ******************** 

INITIALIZE  variables 

CD EL  CT  =32 
CODA  TA  *0 
CO  SO  1=2,240 
CD  3UF  <  I )  *  0 
50  CONTINUE 

READ  INPUT  PICTURE  FILE 

100  CONTINUE 

REAO(PELFIL.END=120,ERR*500) 

*  INLNNO, INELCT, (PEL SUF( I , JNCOD). 1=1, 60 > 

IF  (MODU  NLNNO, 100)  .EO.  0)  ARI  TE  (  TERM,  11  0  )  INLNNO 

110  FORMAT!*  INPUT  LINE  NO.  =*,I6) 

IF ( MOD ( I NLNNO-1 ,VRES).NE,0I  GO  TO  100 
IF  (INELCT. LT.PSL.MAX)  CALL  EXIT 
INLNCT=I.NLNCT*1 

LOAD  0 JT PUT  LINE  NUMBER  BUFFER 

LNN03F  =1 NLNNO 
IF  (S£ARCH)OTLNNO=LNNOdF 

IF  (  INLNNO. LE.L  INMAX  }  GO  TO  140 

WR  I  i'E  SI  X  SOLI'S 
120  CONTINUE 

DO  130  1=1,6 

CALL  CODE3M (6,0, 0*0,0, CDELCT  »CDD ATA ) 

130  CONTINUE 

DO  135  1=1,6 
STFdUF (I )=C08UF(  I ) 

135  CONTINUE 
GO  TO  345 
140  CONTINUE 

ONE- 01  ME  NS  I ONAL  COOING 
WRITE  ONE  EOH 

CALL  C0DE3M (6, 0,0, 0,0, CDELCT .CDDATA ) 

POLAR= 1 

TEST  COLOR  OF  FIRST  ELEMENT  . 

IF ( I  48 ( PELBUF (1 , INCOD) ,1 ,1  ) «E Q .0  )  GO  TO  150 

FIRST  element  black;  ENCOOE  o-length  white  run 

CALL  CODELN( 0,1, CDELCT, CDDATA) 

POLAR=2 

CALCULATE  RUN  LENGTH  AND  ENCODE 

150  CONTINUE 
RUN=0 

DO  200  1=1, PELMAX 
PEL=I4B(PEL8UF(  1,  INCOD  ),  1,1  ) +1 
IFIPEL.EQ. POLAR)  GO  TO  180 

*  CALL  CODELN(RUN,POLAR,CDELCT,CDDATA) 

IF  (  .NOT.  D I  AG)  GO  TO  170 

WRITE< TERM, 160)  RUN , POLAR .CDELCT .CDDATA 
160  FORMAT  (418) 

170  CONTINUE 
RUN=1 

P0LAR=  MOD  (  POLAR *2 , 2  )  >1 
GO  TO  200 

—  180  CONTINUE  . .  -  -  - 

RUN=RUN+ 1 
200  CONTINUE 

CALL  CCOELNt  RUN. POL AR. CDELCT, CDDATA ) 

,  „  UNCLASSIFIED 


;  non  nn<*>  nnn  !nnn  j  n«o  nnn  non  nnn  nnn  non 


UNCLASSIFIED 

IF(  .NOT.DIAG)  GO  TO  550 

WR  ITE{ TERM, 160 )  RJN, POLAR, CDELCT , CDDATA 
550  CONTINUE 

FILL  IF  NECESSARY 

FILL»C;L-  *AX-(CDELCT-32) 

IF (FILL)  559,559,555 
555  CONTINUE 

CDELCT  =CDELCT ♦FILL 

559  CONTINUE 

CDELW*  (CDELCT +32-1  )^B2 
DO  590' 1*2, CDELW 
STFdUF  ( I  )=C0BUF{  I) 

590  CONTINUE  . —  —  - 

LINE  FILLEDI  USE  ONE-DIM 

IF (FILL)  560,560,320 

560  CONTINUE 

TEST  NUMBER  OF  CONSECUTIVE  TWO-DIM  LINES 


IF (KCNT-K)  580,320,570 
570  STOP  5  70 

530  CONTINUE  . .  .  '  “ 

SAVE  ONE— OIM  PARAMETERS  -  . .  . 

TEMPEL=CD£LCT 

-TEMPC0*COOATA  - - - - 

TWO-DIMENSIONAL  CODING _ _ _ _ 

60  0  CONTINUE 

RE-INITIALIZE  PARAMETERS  .  ~~ . 

.  CD£LCT*32  - 

CD0ATA=0 
00  610  1*2,240 

CD BUF {  I>=0  . — . . . 

610  CONTINUE 

WRITE  ONE  EOL2 .  ~  . 

- CALL~CODE3M  <7, 0,0, 0,0  ,COELCT  ,CDDAT  A )• - 

SET  AO  TO  LEFT  EDGE-1  AND  POLAR  ITY=W_H_I TE _ 

A0*0 

LEFT*.  TRUE’.'" 

VMM*0 

DETECT  A l 

620  CONTINUE - - -  - - - . . . 

I*  AO  +1 

IF(I.GT.PELMAX)  GO  TO  640  „  _  _ 

630  CONTINUE 

PEL*  14  B(  PEL  3UF(  1  ,  INCOD  >,I,1  ) 

. IF  (PEL.NE.POL)  GO  TO  640  ---  - - 

I*  1  +  1 

IF( I .LE. PEL MAX )  GO  TO  630 

640  CONTINUE  '  '  '  - - - - 

A1*I 

OETECT'bF  . 

IFutoT.PELMAX)  GO  TO  665 
PELMi* I4  3{ PEL0UF(  1  , INREF)»A0,1  ) 

IF  (LEFT)  PELM1  =  0  - -  - - - - 

650  CONTINUE 

.  PEL*  I  4BI  PELBUF  (1,1  NREF  )  ,  2  ,1) _ _ _ 

IF (PEL ,NE .PELMI )  GO  TO  670 
660  CONTINUE 

•  •  PELM  1*PEL  *  -  - -  ■  • — - 

1=1+1 

IF( I.LE.PELMAX)  GO  TO  650 

665  CONTINUE  -  .  - -  - 


J-8 


UNCLASSIFIED 


UNCLASSIFIED 


81*1 

GO  TO  730 
670  CONTINUE 

IF  (PEL. NE. PCD  GO  TO  690 
GO  TD  660 
690  CONTINUE 
81*1 
C 

C  AO  JUST  LEFT  EOGE  IF  NECESSARY 
C 

730  CONTINUE 

IF(  .NOT.LSF  T)  POL AR= I 4B ( PELBUF <  1  .INCCDI.AO.I  >  +  l 
IF (.NOT. LEFT)  GO  TO  740 
POLAR* 1 
AO*  1 

LEFT*. FALSE. 

740  CONTINUE 
C 

C  TEST  FOR  PASS  MODE:  OPTION  NOT  WELL  OEFINEO-SKIP 
C 

C  IF  (B2  «  GE.  Al )  GO  TO  750 

C 

C  PASS  MODE  CODING  (CAN'T  END  A  LINE  IN  PASS  MOOEJNEW  AO  MUST  HAVE 
C  SAME  POLARITY  AS  B2 > 

C 

C  CALL  CODE3M(l .0.0. 0.0. CDELCT « CDDAT  A ) 

C  A  0*9  2 

C  GO  TO  620 

C  750  CONTINUE 
C 

C  CALCULATE  VERTICAL  DISTANCE  -  - 

C 

MAB=IA8S( Al-Bl ) 

IF(MAB-i)  840.850,790 
C 

790  CONTINUE 
C 

C  CODE  BY  HORIZONTAL  MODE  IF IR ST  DETECT  A2 
C  -  . 

I=A1M 

IF( I .GT. PEL  MAX )  GO  TO  810 
C 

C  CALCULATE  POLARITY  OF  Al 
C 

POL* I 4B( PELBUF( 1 , I NCOO  )  .  Al  .  1  ) 

800  CONTINUE 

•  PEL*  14  0(  PEL  BUF(1  .INCOD).  1,1)  .... 

IF  (PEL  .NE.POL1  GO  TO  320 
1*1+1 

IF(I  .LE. PEL  MAX)  GO  TO  800 
810  A2=PELMAX+1 
GO  TO  830 
820  CONTINUE 
A2  =  1 

—  830  CONTINUE  -  •  . - . 

CALL  C00E3  4(4, POLAR , AO , A i , A2, CDELCT .CDDATA ) 

AO  =A  2 
GO  TO  960 
C 

C  COOL  BY  VERTICAL  .MODE 

C 

C 

•  840  CALL  C03E3M( 1 ,0,0, 0.0, CDELCT, CDDATA)  -  .... 

GO  TO  950 

850  IF (Al  —  01  )  870,860,880 
C  —  - 

860  ST CP  860 

870  CONTINUE 

IF  (VMM  )  871,872,873 

871  STOP  871 

-  -872  CALL  C00E3M (3,0,0, 0, 0, CDELCT , CDDAT A)  — . 

VMM=1 
GO  TO  95  0 

873  CALL  C0DE3M (2,0, 0,0,0, CDELCT, COD AT A) 

VMM*  1 
GO  TO  950 
880  CONTINUE 

I F (VMM )  381  ,882,883 

•  881  STOP  8  81  ■  ■■  ■  -  - — . 

C 

882  CALL  C0DE3M(2, 0,0, 0,0, CDELCT. CODATA) 

VMM*0 


J-9 


UNCLASSIFIED 


|  .  *  rk  i  mT i ri>8h>  ~  . 


ooo  n*"*n  nnn  r>r»n  on  •  non  o  non  non  non  on  o<->n  o^o 


UNCLASSIFIED 


GO  TO  953 

883  CALL  CO0E3M(3,0,0,0,0,CO£LCT,CDDATA> 

VMM=0 

950  CONTINUE 
AO®  A  l 

TEST  FOR  END  OF  LINE 
960  CONTINUE 

IFUO.GT.PELMAX)  GC  TO  210 
P0L=I4  B(  PEL  BUF(  1  •  INCCD  I.  A0.1  ) 

GO  TO  62  0 
210  CONTINUE 

SAVE  LINE  LENGTHIDATA  SITS  ONLY) 

STATU  NLNCT )  ®CDDAT A*T  3 

CHECK  COOED  LINE  LENGTH 

FILL=CMPM  AX-( CDELCT-32 ) 

IF (FILL)  400.400.050 

CODE  LINE  TOO  SHORT;  FILL  IT  TO  CMPMAX 
250  CONTINUE 

CDELCT=CD£LCT*FILL 
400  CONTINUE 

COMPARE  1-0  &  2-D  CODED  LENGTHS 
IF(TEMPEL.LE.CDELCT)  GO  TO  310 
2-0  SHORTER 

CDELV® (CDELCTF32-1 )/32 
DO  300  I*  2*  CDELW 
STFBUF (I )=CD8UF( I) 

300  CONTINUE 

STFBIT=STF9IT+1  -•  - 

KC NT=KCNT+1 
GO  TO  340 
31  0  CONTINUE 

1-0  SHORTER 

CDELCT®TEMPEL 

CDOATA=TEMPCD  — . . 

320  CONTINUE 

KCNT*1  . . 

340  CONTINUE 

SAVE  LINE  LENGTH (DAT A  BITS  ONLY) 

STATU  NLNCT  )=CODAT A+COOERO U  *6  )  -  - - - 

SWITCH  CODE  &  REFERENCE  LINES 

TEMP®  I  NREF  -  -  -  . 

INREF=INCOD 

INCOD® TEMP  . 

345  CONTINUE 

ACCUMULATE  STATISTICS  AND  ERROR  CORRUPT  -  -  -  •• 

IF(ERRMOD.EQ.NN)  GO  TO  390  _ 

ERROR  CORRUPT 
350  CONTINUE 

ERRBIT  =ERRQRS(ERRPNT )— ERROFF-TCDEL 

-  IF(ERRBI  T.LE.O)  GO  TO  360  - - - -  - 

IF  (ERR  BIT. GT. CDELCT-32  >  GO  TO  390 

ERROR  IN  RANGE  OF  CODED  LINE!  CHANGE  APPROPRIATE  BIT 

BIT=I4B(  STFBUF. ERRBITF32. 1  )  .  _ 

BI  T=M0  D(  8  IT  +  1  •  2  ) 

CALL  MI23(BIT, STFBUF, ERRBITF32. 1 ) 

ERRCNT=ERRCNTM  - - - - 

INCREMENT  ERROR  LIST  POINTER 


J-10  UNCLASSIFIED 


no  non  non  non  non  nnn  no  n  non  non 


”rT'  ’’ 


r*v  T^T-1  "“  ’  "" 


UNCLASSIFIED 


360  CONTINUE 

EKRPhiT-SRRPNTf 1 

IFIERRPNT.lE.EHRL  IM)  GO  TC  350 
ERROR  LIST  EXHAUSTED 
ERRPNT*ERRPNT-1 

WR  ITS(L3F  IL #3  70  )  ERRPNT, ERROR S(ERRPNT) 

370  FORMAT (• OERROR  LIST  EX HAUST30  A^ • » II 0« *TH  ERROR  J  * / 

*  *  LAST  ERROR  OCCURRED  AT'  ,110.*  BITS') 

ERfiMOO^NN 

COMPUTE  STATISTICS 

390  CON)  INUE 

TC0EL=  TCDEL +COELCT-32 
TC  DA  TA  =TC  DATA  +CDDAT  A 

IF(DIAG)  WRITE(TERM, 160)  INLNCT,  CDDATA 

IF  (.N0T.DIAG)  GO  TO  460 
CDELW=  (CDELCTF22-1  )/32 

WR  IT=<  LPFIL.450)  ( CDBUT (I) , I  =  1 , CDEL W ) 

MR  IT E< CPF  I L  *  450)  (  STF8UF< I ) .1  =  1 t  COELM ) 

♦  SO  FORMAT  (6212) 

460  CONTINUE 
RETURN 

SO 0  CONTINUE 
CALL  EXIT 

END 

SU3ROUTI NE  C0DE3M( MODE. POLAR. A»  B.C. CDELCT . CDDATA ) 

IMPLICIT  INTEGER(V-Z) 

C0MM0N/BUFF/PEL3JF( 60. 2 ) . CDBUF( 240 ) ,DTBUF( 60,2)  , 

♦  STF3UF ( 240 ) .  STAT(3000) 

CO  MM  ON/HUFF./ CODEC  3 . 92.  2  )  .COD  ERD  (  3.9) 

COMMGN/ERAY/ERRORS  (  2500  ) 

S  EG  IN  PROGRAM  ******  ********************  ** 

GO  TO  (100, 100, 100. 200, 100, 800, 800)  , MCDE 

MODE  1  2  3  *  5  6  7 

STOP  129 

PASS  M0DE<5 ). VERTICAL  MODE:  A1B1*0(1>,  A181  =  l(2,3) 

,00  CONTINUE 

CALL  M 12  B ( COD ERD (3.  MODE), COBUF, CDELCT  +  1 »  CCDERD ( l.MODE) ) 
CDELCT^CDELCT  *C  ODERD (  1  .MODE) 

CDDATA=CDDATA*CUDERO( 1 .MODE) 

RE  TURN 

HORIZONTAL  MODE  ( 4 )  -  -  - - -  —  •  -- 

20  0  CONTINUE 

CALL  MI2  3 ( CODERD i 3  «  MODE ) , CD8UF , CDELCT *  l »  CODERO ( l.MODE)) 
CDELCT  =CDELCT*CODERD( t .MODE) 

CD OAT  A=CDQAT  A+CQDERD (1 .MCDE) 

CALL  CODSLN( 8- A, POLAR, CDELCT, CDDATA) 

NE  *POL  =MQ 0 ( POLAR  f 2  »  2 ) F I 

CALL  COOcLN { C-B.  NEW  POL .CDELCT .CD OAT  A  ) 

RETURN 

ADD  E0L1  OR  EOL2  TO  LINE  (6,7)  ’  '  ' 


300  CONTINUE 

CA  Li.  M  12  3  (  CODERD  (  3  «  MODE  ),  CDBUF  ,  COELCT  *1 ,  CODERD  (  l.MODE)  ) 
CDcLCT=CDELCTFCDDERD(  1  .MODE) 

•  •  RETURN  -  -  -  ■  . .  -  -  -  - 

END 

SUBROUTINE  ONED3( INDEX, COLOR, STATUS. L) 

IMPLICIT  INTEGER! A-Z) 

* ******  LABELED  COMMON  /G32BIT/  ******* 


COMMON  /5  32  BIT/M  ASM  32  )  ,C  OMASK  ( 3  2  )  ,  L  I  B I T  (3  2  )  ,  L  Z  B  IT  (  32 ) 
INTEGER  MASK, CCMASK, LIBIT, LZBIT 

COMMON /3  UFF/PEL3UF (60,2)  ,CDBUF(240) ,OTBUF(60,2 ) » 

*  STF3UF ( 240  )«  STAT( 3000 ) 

COMMON /H UFF/C0DE( 3,92«2)«C0DER0(3,9  ) 


,J-n 


UNCLASSIFIED 


UNCLASSIFIED 

CO  MM  ON  /E  RAY  /ERROR  St  2500) 

£*************«*********  FILE  DEFINITIONS  ******************** 

C 

COM  ON /F  ILES/TERM,  LPF  IL*  PELF  IL.GTFIL.GRFIL 
C 

C**** *******  ** ♦ ** ♦*  *  *  *  .A8ELLED  COMMON  VARIABLES  ********************** 

C 

COMMON /I  VAR/PELMAX . VRES.EPHASE. CMPM AX , ERRMQD.L INMAX, K 
CO  MON/^VAR/IN.NNO  , 0 TLNNO , OTEL W ,  INELP,CDELP»QTELP,CDELW, 

*  CDELCT, INELCT.TCDATA.TCDEL.SRRPNT.ERROFF.ERRLIM, 

*  ERRCNT.INLNCT.CQNSEC  .LNNCBF  ,KCNT  , 

*  INCOD. INREF.OTCOD.OTRFF.STFBIT.VMMD 
CO MM ON /I  CHAR/00. I  I  . MM* TT.NN.YY 

COMMON/LOvJI  C/S£ARCH.DIAG»SYNC»LSS»WRITE»ZERO»LEF?»CHCOL»  ONE 
LOGICAL  SEARCH, OIAG, SYNC. WRITE, LEFT. CHCUL. ONE 


C 

i- 

C 


BEGIN  DECODE  LOOP?  RETRIEVE  NEXT  CODE  WORD  LENGTH  <L) 
1000  CONTINUE 

1002  LENBIT=CJDE(1  .INDEX,  COLOR) 

CALL  GETu3<LEN9IT,MCDE,LBITS.L> 

IF (0 1  A  G)  WRITE(TERM,1003)  LENBIT .MOOE.LBITS.L 

1003  FORMAT  <216*23, 16) 

GO  TO  (1040,1200.1205.  1190),  MQOE 
STOP  1  040 
1040  CONTINUE 

IF(LaiTS.EO.COOE(3, INDEX, COLOR))  GO  TO  1100 

NO  MATCH}  ADVANCE  CDDE  WORD  INDEX  VIA  DECODE  THREAD 

JND£X=CODE( 2.INDEX, COLOR)  . - 

IF  (INDEX.  GE. 93  )  GO  TO  119C 

IF(COOE( 1 .INDEX, COLOR) .EQ.LEN8IT)  GO  TO  1040 


C 

C 

C 


C 

C 

C 

C 

c 

c 


CODE  WORO  longer;  from  THE  TOP 
GO  TO  1002 

MATCH  FOUND  -  - -  -  - . 


C 

C 

c 

c 

c 

r 


1100  CONTINUE 

CDELP=  CDELP  *L 

NOT  AN  EOL 


C 

C 

C 


TEST  FOR  MAKE  UP  OR  TERMINATING  CODE-  -  - 

RUNLEN»INDEX-1 

IF ( INDEX  «  GE ,65 )  RUNLEN= ( INDEX-64 > *64 
IF(RUNLEN.EQ.O)  GO  TO  1160 

IF  (COLOR  .EQ  .1  )  GO  TO  1155  . . . 

IF(RUNLEN.LT.O)  STOP  1100 

-AOD  BLACK  RUN  TO  OUTPUT  BUFFER - - 

DO  1150  I=1,RUNLEN 
CALL  MI2 8 (COLOR-1 »OTBUF( 1 .OTCOD) » OTELP, 1 ) 
OTELPsOTELPFl 

IF (OTELP— 1 .GT .PELMAX1  GO  TO  1180 
1150  CONTINUE 

GO  TO  1160 


C 

C 

C 


ADD  WHITE  RUN  TO  OUTPUT  BUFFER  <8Y  DEFAULT) 

1155  CONTINUE  .  "  -  ~ 

OT  EL  P«  OTELP  +R  UNL  EN 

IF  (OTELP-l  •  GT.PELMAX).  GO  TO  1180  ...  . 


C  OUTPUT  LINE  LESS  THAN  OR  EQUAL  TO  MAX  SPECIFIED 
1160  CONTINUE 

IF  (INDEX. LT  .65  )  GO  TO  1170 

INDEX=3  • 

GO  TO  1000 

C  .... 

C  RUN  ADOEO  TO  OUTPUT  .  INEI  LENGTH  LESS  THAN  OR  EOUAC  TO  PELMAX  (1) 
C 

1170  CONTINUE  - . . . 

CHCOL* .TRUE. 

ST ATUS— 1 

RETURN  -  .  ..  _ 


J-12 


UNCLASSIFIED 


s  at*'** 


•  r  ”  Wrt 


1 


UNCLASSIFIED 


C 

C 


SUN  ADDED  UNTIL  PELMAX  EXCEEDED  I  LINE  TOO  LONG  (  2  ) 
1183  CONTINUE 

IF  (0  I A  01  *RIT£(TESM,H85)  (OTBUF < I , OTCOD ) » 1= 1 , 60 > 
1185  F0RMAT(6Z10> 

ST  AT  US  =2 
RE  TURN 

NO  NATCH  FOUND  IN  CODE  TABLE  (3) 

1190  CONTINUE 
ST  ATUS-3 
RETURN 

EOL 1  DETECTED  (♦) 

1200  CONTINUE 
STATJS-4 
RETURN 

E0L2  DETECTED  <S> 


C 

r- 

r 

i 

c 

w 

c 


C 

c 

c 


120  5  CONTINUE 
ST  AT  US  *5 
RETURN 
END 

SUBROUTINE  TM003  t INDEX  «  COLOR*  STATUS  *  L ) 

IMPLICIT  INTEGER(A-Z) 

£«***«**  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  /G32  3IT/MAS<  (32  )  .  COMASK  (  32 >  .  L  I  81 T I  32 )  »LZBIT(32) 

INTEGER  MASK. COMASK, LIBIT. LZBIT 
C 

COMMON/BUFF/PELBUF (60.2). CDCUFI 240 ) , OTBUFI 60 . 2 ) . 

*  STFBUFI 240 ) .  STAT(SOOO) 

CO  MM ON /HUFF/ C3  DEI  3,92,2 )  « CODERD { 3,9) 

CO  MM  ON /£  RAY /ERRORS!  2500) 

C* ♦♦♦*♦***♦**♦♦****♦♦♦♦♦  FI^E  DEFINITIONS  ******************** 

C 

C0MM0N/F1LES/TERM.LPFIL.PELFIL*0TFIL,ERFIL 

c 

c ♦ ******  **** *****  *****  LABELLED  common  variables  ********************** 

c 

COMMON/I VAR/PELMAX . VRES . EPHAS E . CMPMAX. ERRMOD.L INMAX, K 
COMMON /= VAR /I NlNNO ,0 TLNNO, OTELW , I NELP .COELP. OT ELP .COELW , 

*  CDELCT  «  INELCT • TCDATA  »TCDEL  »ERRPNT  , ERRCFF  »ERRLI M  * 

*  ERRCNT  *  I NLNCT  * CONS EC  »LNNOBF»  KCNT  * 

*  INCOO. INRcF.OTCOD.OTREF, STFBIT.VMMD 
COMMON/I  CHAR/DD,  1 1  .  MM .  TT  , NN.  YY 

CO MMON/LOGI C/SEA RCH.DI AG, SYNC  ,LSS, WR 1TE , ZERO .LEFT .CHCCL.  ONE 
LOGICAL  3  EARCH, D1 AG, SYNC .WRITE, LEFT  »  CHCQL  *QNE 


C 

C 

•C 


BEGIN  OECODE  LOOP?  RETRIEVE  NEXT  CCDc  *ORD  LENGTH  (L) 
1000  CONTINUE 

1002  LENBIT=C0DERD(1» INDEX) 

CALL  GETL3I LENS I T , MODS , LB ITS  *L ) 

IF(OIAG)  *R  ITE(TE3M,  1003)  LENBI T .MODE ,L9 I TS- L 
1  003  FORMAT  (216,  Z1  2,16) 

GO  TO  (1040,1200,1205,1190),  MODE 
STOP  104  0 

1040  CONTINUE  . .  - . 

IF(Lt)ITS.EQ.COOERD(3,  INDEX))  GO  TO  1100 

NO  MATCH!  ADVANCE  CODE  WORD  INDEX  VIA  DECODE  THREAD 

IND£X=COOERD<  2.  INDEX)  ..  ... 

IF  (INDEX  .GE.8  )  GO  TO  1190 
IF(CODERD(l .INDEX), EQ.LENBIT)  GOTO  1040 


C 

C 

c 


c 

c 

c 

c 

C 

c 


CODE  WORO  longer;  from  THE  TOP 
GO  TO  1002 
MATCH  FOUND 
1100  CONTINUE 

.  CDELP*CDELP+L  ■  —  . 


C 

C 

c 


NOT  AN  EOL 
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UNCLASSIFIED 


non  '  ono  on n  non  !  r>r»o  non  r>o  o 


UNCLASSl FIEO 


FIND  SI  AND  82 
A 0*0 TELP 

IF  (0TELP.EQ.1  )  A0*0 
P0L=C0LDR-1 

DETECT  B1 

I* AO  *1 

IF(  I  ,GT.:>ELMAX)  03  TO  65 
PELM 1=0 

IF(AO.EQ.O)  SO  TO  50 

PELM1* I4B(0TBUF( 1 »  0TREF ) «  A  0, 1 > 

50  CONTINUE 

PE L=  1 4  8(  □  TB UF ( 1 ,OTREF)  ,1,1) 

IF(PEL  .NE.PELM1  )  GO  TO  70 
60  CONTINUE 
PELM 1= PE- 
1=1+1 

IF(I.LE.PELMAX)  GO  TO  50 
65  CONTINUE 
91*1 

GO  TO  92 
TO  CONTINUE 

IF (PEL .N=. POL)  GO  TO  90 
GO  TO  60 
90  CONTINUE 
81*1 

92  CONTINUE 

GO  TO  (300,400. 600, 200,100), INDEX 
STOP  100 

PASS  MODE 


100  CONTINUE  .  -■ 

RUNLEN*J2-0TELP 
CHCOL* .FALSE. 

- GO  TO  (1  155, 1145), COLOR  •> . . 

HORIZONTAL  MODE 

200  CONTINUE 
ENTRY=3 

CALL  ONED3( ENTRY , COLOR , STATE , L ) 

GO  TO  (21 0.1180, 1190, 1200. 1205), STATE 

210  CONTINUE  . -  - . 

COLOR* MOO ( COLOR +2, 2 ) +1 
ENTRY*  3 

CALL  0NE03( ENTRY, COLOR, STATE, L) 

GO  TO  (220, 1180. 1190, 1200. 1205), STATE 

220  CONTINUE...  _  . .  . . .  . 

CHCOL* .TRUE. 

GO  TO  1160 


VERTICAL  MODE  AIBI=0 

300  CONTINUE 

RUNLEN=Bi — OTSLP 
CHCCL* .TRUE. 

GO  TO  (1  155, 1145).  COLOR 

•  VERTICAL  MODE  CORRELATED  (VMC) 

400  CONTINUE 

IF(VMMD)  410,420.430 
410  STOP  410 

420  CONTINUE  _ _ 

RUNL£N=ai  -UTELP+l 
VMMD*  0 

■  GO  TO  440  . -  -  -  -  -  — 

430  CONTINUE 

RUN_EN=31-0  TEL  P-1 

VMMD=1  . 

440  CONTINUE 

CHCOL*  .TRUE  .  .... 

GO  TO  (1155, 1145), COLOR 

VERTICAL  MODE  UNCORRELATED  (VMU) 

600  CONTINUE 

IF (VMMD)  610,620.630 


J-ll* 


UNCLASSIFIED 


UNCLASSIFIED 

613  STOP  610 
62  0  CONTINUE 

RUNLSN-81 -OTELP-1 
VMMD  =  1 
GO  TO  640 
630  CONTINUE 

RUNL£N*31-0  TELPM 
VMM0=0 

640  CONTINUE 

CHCCL= .TRUE* 

GO  TO  (1155.1145),  COLOR 
C 

C  ADO  eLACK  RUN  TO  OUTPUT  SUFFER 

c 

1145  CONTINUE  - . 

IF (RUNLEN )  1190,1160,1147 
1147  CONTINUE 

00  1150  1=1, RUNLEN 

CALL  M  I2d ( COLQR—1 , 0  TBUF ( 1 , OTCOD )  ,GTELP,1 ) 

OTELP=OTELP  +  l 

IF (OTELP-1. GT.PELMAX)  GO  TO  1100 
1150  CONTINUE 

GO  TO  1160 
C 

C  AOO  rfHITE  RUN  TO  OUTPUT  BUFFER  (BY  DEFAULT) 

C 

1155  CONTINUE 

IF (RUNLEN .LT.O )  GO  TO  1190 
OTELP=OTELP+RUNLEN 
IF(OTELP-l .GT.PELMAX)  GO  TO  1180 
C 

C  RUN  ADDED  TO  OUTPUT  _INEJ  LENGTH  LESS  THAN  CR  EQUAL  TO  PEL MAX  (1) 

C 

1160  CONTINUE 
STATUS=1 
RETURN 
C 

C  RUN  ADDED  UNTIL  PELMAX  EXCEEDED;  LINE  TOO  LONG  (2) 

C  . . 

1180  CONTINUE 

IF(DIAG)  rfRITEITERM, 11851  (OTBUF( I , OTCOD ) , 1=1 , 60) 

1185  FORMAT (6210) 

STATUS=2 

RETURN  ... 

C 

C  NO  MATCH  FOUNO  IN  CODE  TABLE  (3) 

1190  CONTINUE 
ST  AT  US  =3 
RETURN 
C 

C  E0L1  DETECTED  (4)  .... 

C 

1200  CONTINUE 

STATUS=4  . . . -  — . . . 

RETURN 

C 

C  EOL2  DETECTED  (5) 

C 

1205  CONTINUE  ... 

ST  AT  US -=5 
RETURN 

END  -  . . . -  •  -  ..... 

BLOCK  OAT A 
C 

IMPLICIT  INTEGER!  A-Z)  '  - 

c***********************  file  definitions  ******************** 

c 

comm on/files/term.lpfil. pelf il.otfil. erf il 

C 

-  - .  COMMON /BUFF /PELBUF(  60, 2) ,CDSUF( 240) ,OT8UF<60,2) •  ... 

*  STFBUF( 240  )  ,  STAT (3000 ) 

COMMON /HUFF /CD DEC  3,92,2) ,C0DERD(3,9> 

COMMON/ERAY/ERRORS  (2500  )  "  “  " 

C******* **************  LABELLED  COMMON  VARIABLES  ********************** 
C  .... 

COMMON/I VAR/PEt  MAX , VRES , EPHASE. CMPM AX, ERRMOD.L INMAX.K 
COMMON/PVAR/IN_NNO,3TLNNO,OTELW, INELP.CDELP.OTELP, CDEL w , 

-  *- . CDELCT , INELCT ,TCDAT A.TCDEL, ERRPNT, ERROFF.ERRLI M , 

*  ERRCNT ,  INLNCT ,CONSEC »ONEC NT .LNNOBF  » WRC8UF « L PACK  * 

*  INCOD, INREF , OTCOD, OTPEF , TSTFBT 
COMMON /ICHAR/OD, II, MM.TT ,NN* YY 
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UNCLASSIFIED 


•■'T.TV'-n'jwfr';' 


■’'•Tpvrwwiwi  ”»*rvr 


UNCLASSIFIED 


CO  MMCN /_  OG I C/SEA9  CH*  D i  A  G  »  SYNC  .LSS.WRI TE , 2ERO • L EF T* CHCOL . ONE 
LOGICAL  SEARCH. Jl AG. SV NC . LSS . WRITE . ZERO. LEFT , C HCUL . ONE 


OATA 

DATA 

DATA 

DATA 

OATA 


r  erm.lpfil.pelf  i 

DO. I  I , MM.TT 
PE-VUX.  VRES 
K/2/ 

D  IAG/. FALSE 


♦  OTFIL  .ERFIL/5.6  •  1 

»  M*  .  •  T  •  .  *  I 


2*3/ 

•  v  •  , 


EPHA  S£ .CMPMA  X  « ERR MOD  »LI NMAX/1  72 8 *2 . 0 . 96 .  •  T * , 30 00/ 


DATA 

CODE  <  1  . 

i 

CODE  t  2 . 

1 

«  CODE  13% 

1 

1/ 

8. 

70 

20035/ 

DATA 

CODE!  1 . 

O 

tm 

CODEt  2. 

2 

•  CCOE ( 3  * 

2 

)/ 

6. 

90 

200C  7/ 

DATA 

C3DEU  , 

3 

CODE ( 2. 

3 

. CODEt  3. 

3 

1/ 

4# 

4 

2  000  7/ 

DATA 

CODEt  I  . 

4 

CODEt  2. 

4 

*  COOS  1 3  . 

4 

)/ 

4 1 

5 

20006/ 

DATA 

CODEt  1. 

5 

CODEt  2. 

5 

.CODEt  3, 

5 

1  / 

4  « 

6 

ZOOOd/ 

DATA 

CODE  ( 1  . 

6 

CODE  t2  . 

6 

*  CODE  13. 

6 

)/ 

4  • 

7 

ZOOOC/ 

DATA 

CO  DEI  I, 

7 

CODEt  2. 

7 

.CODE  t  3. 

7 

)  / 

4  • 

8 

ZOOOE/ 

DATA 

CODE  ( 1  . 

8 

CODE  12. 

0 

. CODE ( 3 . 

8 

)/ 

4  • 

9 

2  0  OOF/ 

DATA 

CODE! 1. 

9 

CUDEt  2. 

9 

.CODE  t3 . 

9 

)/ 

5. 

10 

2001 3/ 

OATA 

CODE  1 1  • 

13 

CQOEt  2. 

10 

.CODEt  3. 

10 

I  / 

5. 

11 

20014/ 

DATA 

CODE! 1 < 

11 

CODE  <2. 

11 

. COOEt  3 . 

11 

)/ 

5, 

12 

2  000  7/ 

O  AT  A 

CODE!  1. 

12 

CODEt  2. 

12 

.CODEt  3. 

12 

)  / 

5. 

65 

Z0008/ 

0  ATA 

CODE!  1  , 

13 

CODE  t  2  . 

13 

•  CODE ( 3 . 

13 

1/ 

6, 

14 

Z  0  38/ 

DATA 

aoci  i  , 

14 

CODE! 2. 

14 

.CODEt  3, 

14 

)  / 

6. 

1  5 

Z0003/ 

DATA 

CODE  a . 

15 

CODEt  2. 

15 

. CODE  13. 

IS 

)/ 

6, 

16 

20034/ 

DATA 

CODE! 1, 

16 

CODE ( 2  • 

16 

•COOE 13. 

16 

1/ 

6. 

17 

Z0035/ 

OATA 

CODE!  1  • 

1  7 

CODEt  2. 

l  7 

.COOEt  3, 

17 

)/ 

6  • 

18 

2002 A/ 

DATA 

CODEtl. 

18 

CODE ( 2 . 

18 

.CODE! 3. 

18 

)/ 

6. 

19 

Z002B/ 

DATA 

O  DEI  1 . 

19 

CODEt 2. 

1 V 

.CODE  t  3 . 

19 

)  / 

7, 

20 

20027/ 

DATA 

COOEU  , 

20 

CODE  ( 2  . 

20 

.  CODE  f  3  . 

20 

)/ 

7. 

21 

Z  OOCC/ 

DATA 

COOEl 1. 

21 

CODEt 2 . 

21 

.CODE  13. 

21 

)/ 

7. 

22 

Z0008/ 

-  DATA 

caoEii. 

22 

COOEt  2. 

22 

.COOEt  3, 

22 

)/ 

7. 

23 

2  001  7/ 

DATA 

COOEtl  . 

23 

CODEt 2. 

23 

•  CODE ( 3  • 

23 

>/ 

7. 

24 

20003/ 

DATA 

aoEi  l. 

24 

CODE ( 2. 

24 

.CODEt  3, 

24 

)  / 

7, 

25 

20004/ 

DATA 

CODE! 1 . 

25 

CODE  12. 

25 

. CODE  13. 

25 

)/ 

7, 

26 

20028/ 

DATA 

CODE!  1. 

26 

CODEt  2. 

26 

.CODE  t  3. 

26 

)  / 

7. 

27 

2002 B/ 

DATA 

COOEU  . 

27 

CODE  t  2. 

27 

»  COOEt  3. 

27 

)/ 

7. 

28 

20013/ 

DATA 

CODE! 1. 

28 

COOEt  2. 

28 

. COOE  t  3  . 

28 

)/ 

7. 

29 

Z0024/ 

DATA 

COOEU. 

29 

CODEt 2. 

29 

.COOEt  3, 

29 

)/ 

7. 

68 

Z001  8/ 

DATA 

COOEU. 

30 

CODE  <2  . 

30 

.C00Et3. 

30 

>/ 

8. 

31 

Z  0002 / 

DATA 

CODE!  1. 

31 

COOEt  2. 

31 

.CODE  t  3 • 

31 

)  / 

e. 

32 

2  0003/ 

DATA 

CODE!  1  . 

32 

CODE  t  2. 

32 

»  CODE  1 3. 

32 

>/ 

8. 

33 

Z  001  A/ 

DATA 

COOEU. 

33 

CODE  t  2 . 

33 

. COOE  t3 . 

33 

)  / 

8. 

34 

Z001  8/ 

OATA 

COOEU. 

34 

CQOEt 2. 

34 

.CODEt  3. 

34 

)/ 

e. 

35 

Z  001 2/ 

DATA 

COOEU. 

35 

CODE  12. 

35 

. CODE  t3 . 

35 

)/ 

8. 

36 

20013/ 

DATA 

CODE!  1. 

36 

CODEt  2. 

36 

.COOEt  3, 

36 

)  / 

e. 

37 

Z0014/ 

DATA 

COOEU  . 

37 

CODE  12* 

37 

.CODE  13. 

37 

)/ 

8. 

38 

Z001 5/ 

OATA 

CODE!  1. 

38 

CODEt  2. 

38 

.CODE <3. 

38 

)  / 

8. 

39 

Z001 6  / 

OATA 

COOEU  . 

39 

CCDEI2. 

39 

. CODEt  3. 

39 

)/ 

8, 

40 

Z001  7/ 

OATA 

COOEU. 

40 

CODE (2, 

40 

.CODE  t  3 . 

40 

)/ 

8. 

41 

20028/ 

DATA 

COOEU. 

41 

CODEt  2. 

41 

.CODEt 3, 

41 

)/ 

8. 

42 

Z002  9/ 

DATA 

COOEU  . 

42 

CODE  12. 

42 

•  CODE  13. 

42 

)/ 

8. 

43 

Z002A/ 

DATA 

CODEtl. 

43 

CODE  t  2. 

43 

•  C  ODE  t  3  • 

43 

)/ 

8. 

44 

Z002B/ 

DATA 

COOEU  • 

44 

CODE ( 2 • 

44 

*  C00E13. 

44 

)/ 

8. 

45 

Z002C/ 

DATA 

COOEU. 

45 

CODEt  2. 

45 

.CODE  t  3  « 

45 

)/ 

8  . 

46 

2002 0/ 

OATA 

COOEU. 

46 

COOEtZ.- 

46 

•  CODE  t  3»- 

46 

)/ 

8  • 

47 

20004/ 

OATA 

CODE! 1 , 

47 

CODEt  2* 

47 

.C00Et3. 

47 

)/ 

8, 

49 

20005/ 

OATA 

CODE!  1. 

48 

CODE  t  2 . 

48 

.CODEt  3. 

48 

1/ 

6. 

49 

Z  000  A/ 

DATA 

COOEU. 

49 

CODE  t  2  • 

49 

. CODE  13. 

49 

>/ 

8  . 

50 

ZOOOB/ 

DATA 

CODE!  I, 

50 

CODE ( 2 . 

50 

.CODEt  3, 

50 

)/ 

8. 

51 

Z0052/ 

OATA 

COOEU  . 

51 

CODE  12. 

51 

•  CODE  t  3. 

51 

)/ 

8. 

52 

Z  0053/ 

OATA 

CODE!  1* 

52 

CODEt  2. 

52 

»COOEt3. 

52 

)/ 

8  * 

53 

Z0054/ 

DATA 

COOEl  1  . 

53 

CODE  t  2 . 

53 

.CODEt  3. 

53 

)/ 

8. 

54 

Z0055/ 

DATA 

COOEU. 

54 

COOEt 2. 

54 

. CODE  13. 

54 

1/ 

8* 

55 

2  0024/ 

DATA 

COOEU. 

55 

CODEt  2. 

55 

.CC0EI3. 

55 

)/ 

8. 

56 

Z  0025/ 

DATA 

COOEU  . 

56 

CODE ( 2 . 

56 

, CODE  t  3. 

56 

)/ 

8. 

57 

Z  005  8/ 

DATA 

CODE!  1. 

57 

CODEt  2. 

57 

•  COOE (3  » 

57 

)/ 

8. 

58 

Z0059/ 

DATA 

COOEU. 

58 

CODE  12. 

58 

.CODEt  3. 

58 

>/ 

e. 

59 

Z005A/ 

DATA 

CODE!  1  , 

59 

CODE <2. 

59 

. CODE  13. 

59 

)/ 

8  . 

60 

Z0058/ 

DATA 

COOEl  1. 

60 

CODEt  2. 

60 

.CODEt  3. 

60 

)  / 

8. 

61 

Z004A/ 

DATA 

COOEU. 

61 

CODE  12. 

61 

. COOE ( 3 • 

61 

)/ 

e- 

62 

L 0040/ 

OATA 

O  DEI  1. 

62 

CODEt  2. 

62 

•  CODE  1 3 «  - 

62 

>/ 

8* 

63 

Z0032  / 

DATA 

CODE!  1  . 

63 

CODEt  2. 

63 

. COOEt  3. 

63 

)/ 

8. 

64 

Z  0033/ 

DATA 

CODE! 1. 

64 

CODE  12. 

64 

.CODE  f 3 . 

64 

)/ 

6. 

69 

20034/ 

DATA 

CODEtl. 

65 

CODE  t  2 . 

65 

.CODEt  3 . 

65 

»/ 

5. 

66 

ZOOIB/ 

DATA 

CODEtl  , 

66 

CODE (2 . 

66 

. COOE ( 3 . 

66 

>/ 

5. 

67 

Z  001 2/ 

OATA 

CODEtl. 

67 

CODEC’. 

67 

. CODE  t  3  « 

67 

)  / 

6. 

2 

Z001 7/ 

OATA 

CODEtl  . 

68 

CODE  12. 

68 

•  CODE  13. 

68 

)/ 

7. 

30 

20037/ 

OATA 

CODE! 1, 

69 

CODEt  2. 

69 

•  CODE  13. 

69 

)/ 

8, 

1 

Z003  6/ 

DATA 

COOEU  . 

70 

COOEt  2. 

70 

.CODEt  3. 

70 

)/ 

8  . 

71 

Z  003  7/ 

OATA 

CODEt  1  , 

71 

CODEt  2. 

71 

. CODE  1 3 . 

71 

)/ 

9. 

72 

Z  0064/ 

DATA 

CODEt  1, 

72 

CODEt  2. 

72 

.COOEt  3. 

72 

)  / 

8* 

73 

Z  006  5/ 

DATA 

CODEt  l  . 

73 

CODE  t  2 . 

73 

. CODE  1 3 . 

73 

)/ 

8, 

74 

Z  0068/ 
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DATA 

CODEC  1, 

74,1 ) .CODEC  2, 

7  4.1) 

CODE  C3 

74,1)/  8, 

75.Z0067/ 

OATA 

aoEci , 

75,1  )  ,C0D£(2, 

75.1  ) 

CODEC  3 

75.1)/  9, 

76,2  OOCC/ 

DATA 

CODEC  1  , 

76.1  )  ,  C  DDE ( 2  , 

76,1  ) 

CODE  C  3 

76,1 >/  9. 

77 , Z  OOCD/ 

DATA 

CODEC  I  . 

77,1  ) ,  CODE ( 2 , 

77.  1  ) 

COOE  C  3 

77,1)/  9, 

78.Z0QD2/ 

DATA 

CODEC  1  . 

78,1  ) .CUDEC2. 

78 .1  ) 

CODE  C  3 

78,1)/  S, 

79,20003/ 

DATA 

CODEC  1  , 

79,1 ) , C  ODE  C  2  * 

79,1) 

CODEC  3 

79,1)/  5. 

80,20004/ 

DATA 

COOECI  . 

80. 1  ) , CODE  C  2  « 

80,  1  ) 

CODEC  3 

80,1)/  9, 

81 ,2  0005/ 

DATA 

CODEC  1, 

81*1 )  .CODE  C  2 , 

81,1) 

CODE ( 3 

81,1)/  9. 

82,20006/ 

DATA 

aicii, 

82. 1  >. CODEC  2, 

82,1  ) 

CODEC  3 

82,1 )/  9. 

83.Z00D7/ 

DATA 

CODEC  1 , 

83,1  ) .CODE  C2, 

83,1  ) 

CODE C  3 

83,1)/  9, 

84.200D8/ 

0  AT  A 

CODEC  1, 

84.1  )  .CODEC  2. 

84.1  > 

CODEC  3 

84,1 )/  9. 

85.Z00D9/ 

DATA 

CODECl , 

85.1  ) , CODE  C2 , 

85.1) 

CODE  C  3 

85,1)/  9. 

86,2  OODA/ 

HATh 

CODEC  1, 

86,1 ) .CODE  C  2 , 

86.1) 

COOE ( 3 

86,1 ) /  9, 

87, ZOODB/ 

DAT  A 

CODECl . 

87,1  ), CODEC  2, 

8  /  »  1  ) 

CODEC  3 

87,1 )/  5. 

88,7.0098/ 

DATA 

CODEC  1 , 

88,1 ) .CODEC  2 , 

88,1  ) 

CODE ( 3 

88,1 )/  9, 

89,20099/ 

DATA 

a  DEC  1. 

89,1  ). CODEC  2. 

85,1) 

CODEC  3 

89,1 )✓  9, 

91  .Z009A/ 

DATA 

COOECI . 

90.1  )  , COOE  C  2  » 

90.1  ) 

CODE  C  3 

90,1)/  6. 

1  3  •  Z  0  0 1  8/ 

OATA 

CODEC  1. 

91.1) .CODEC  2, 

91,1) 

CODEC  3 

91.1)/  9, 

92.Z009B/ 

DATA 

CODECl. 

52,1  ) .CODEC  2, 

92,1  ) 

CODEC  3 

92.1 )/13» 

93,20002/ 

DATA 

CODEC  1. 

1.2)  .CODEC  2, 

1,2) 

COOE  ( 3 

l.2)/10. 

65.Z0037/ 

DATA 

CD  0  *•'  C  1 , 

2.2). COOE (2. 

2,2) 

CODEC  3 

2.2)/  3, 

6.Z0C02/ 

OATA 

CODEC  1  . 

3,2)  .CODE  (  2  , 

3,2) 

CODE  ( 3 

3,2)/  2, 

4,20003/ 

OATA 

a  DEC  1. 

4.2  )  .CODE  C  2, 

4,2) 

CODE  <  3 

4,2)/  2. 

5,20002/ 

DATA 

CODECl , 

5,2) «  CODE ( 2 , 

5,2  ) 

C00EC3 

5,2)/  2, 

2. Z 0003/ 

DATA 

CODEC  1. 

6.2)  .CODEC  2, 

6.2  ) 

CODE  C  3 

6,2)/  4, 

7.Z0003/ 

OATA 

CODEC  1  . 

7,2 ) , CODEC  2* 

7,2) 

CODEC  3 

7,2)/  4, 

8,20002/ 

DATA 

CODEC  1, 

6,2  > .CODEC  2. 

6.2) 

CODE  C  3 

8.2)/  5, 

9,20003/ 

DATA 

CODEC  1, 

9.2 ). CODEC  2. 

9.2) 

CODEC  3 

9,2)/  6. 

1 0.Z0O05/ 

DATA 

CODEC  1 , 

10.2 ) .CODE  C2 , 

10,2) 

COOEC3 

10.2)/  6, 

11,20004/ 

DATA 

CODEC  1. 

1 1,2) .CODEC  2. 

11.2) 

CODE  ( 3 

11.2)/  7, 

12,20004/ 

DATA 

CODECl. 

12.2 ) .CODEC  2, 

12.2) 

CODEC  3 

12,2)/  7, 

1 3, Z  0005/ 

DATA 

CODEC  1. 

13,2)  .CODEC  2. 

13,2) 

COOE  (3 

13,2 )/  7 1 

14, Z0007/ 

DATA 

CODEC  1, 

14.2), CODEC  2, 

14,2) 

CODE  C  3 

14,2)/  e. 

15,20004/ 

DATA 

COOECI. 

15.2) .CODEC 2, 

15,2) 

CODE  ( 3 

15,2)/  8. 

1 6, Z  0007/ 

DATA 

CODEC  1. 

16.2 ) .CODEC  2. 

lb. 2) 

CODEC  3 

16.2)/  5, 

1  7.Z001 8/ 

DATA 

COOECI , 

17.2) .C0DEC2. 

17.2  ) 

C0DEC3 

ir,2)/io. 

18,20017/ 

DATA 

CODEC  l. 

18,2) • COOE  C  2  • 

18,2) 

CODE  ( 3 

18,2)/10. 

15, Z001 8/ 

DATA 

ODE  C  J  . 

19,2 ) .C0DEC2. 

19,2) 

CODEC  3 

19,2)/10. 

1  .20008/ 

DATA 

CODEC  1. 

20.2)  .CODE  C  2  » 

20.2) 

CODE  C3 

20,2 )/l 1, 

21.20067/ 

DATA 

ODEC  1. 

21, 2). CODEC  2, 

21.2) 

CODEC  3 

21 ,2 ) /I 1 , 

22,20068/ 

D  ATA 

CODEC l. 

22,2) .CODEC  2. 

22.2) 

CODE  13 

22  *  2 ) / 1 1 , 

23.Z006C/ 

DATA 

OOEC  1. 

23. 2 ) , CODE C  2. 

23.2) 

CODE  C3 

23  ,2  )  /*  1 , 

24.Z0037/ 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

OATA 

DATA 

OATA 

OATA 

DATA 

OATA 

OATA 

DATA 

OATA 

OATA 

DATA 

DATA 

DATA 

OATA 

DATA 

DATA 

DATA 

OATA 

DATA 

OATA 

DATA 

DATA 

OATA 

DATA 

OATA 

DATA 

DATA 

OATA 

OATA 

DATA 


CODEC 1. 
CODEi I  . 
CODEC  1  , 
CODEC  1  • 
CODEC  it 
CODEC!  . 
CODEC i. 
CODEC*. 
CODEC  l. 
CODEC  1. 
CODEC  1  . 
CODEC*. 

cooeci . 

CODEC  1  , 
CODEC  1, 
CODEC  1. 
CODEC  *. 
COOECI  . 
CODE* *. 
COOE  ( 1 . 
COOECI. 
CODEC  *. 
CODECl . 
CODEC  1. 
CODEC  1  . 
CODEC  1. 
CODEC  *. 
CODEC  1. 
CODEC  1. 
CODEC  1  . 
CODEC  1. 
CODEC*. 
CODECl, 
CODEC  J, 
COOECI  . 
CODEC  1. 
CODEC*  » 
CODEC  *» 
CODEC*. 
CODECl . 


24.2 )  • CODEC  2 

25.2)  .CJOEC  2 
26.  2 ) , CODE ( Z 

27.2)  .CODEC  2 

28.2)  .CODEC  2 

29.2)  .CODEC  2 

30.2)  .CODEC  2 

31. 2) . CODEC  2 

32.2)  .CODECS 

33.2) , CODEC  2 

34.2 )  , CODE  C  2 

35.2)  .CODEC  2 

36.2 ) ,C0D£C2 

37.2)  .CODEC  2 

38.2) , CODEC  2 

39.2)  .C0DSC2 

40.2 )  .CODE  t  2 

41.2) , CODE  C2 

42.2)  .CODEC  2 

43. 2 )  , CODECS 

44.2)  .CODE ( 2 

45.2) , CODE ( 2 

46.2)  .CODECS 

47.2 )  .CODEC  2 

48.2 ) , C0DEC2 

49.2)  .CODE  C  2 

50. 2) , CODEC? 
5* ,2 ) , C ODE  1 2 

52.2)  .CODEC  2 

53.2)  . CODE ( 2 

54.2)  .CODEC2 

55. 2 )  , CODE  C  2 

56.2 )  , CODE  C  2 

57.2) , CODE ( 2 

58.2 )  .CODECH 

59.2 )  .CODE  C  2 
60,2  >,CQDEC2 
6* ,2)  .CODE  C  2 

62. 2) . CODEC  2 

63.2 )  .CQDEC2 


25.2) 

26.2) 

27.2  > 
28.2) 

29.2  > 

30.2) 

31. 2) 

32.2) 
33.  2) 

34.2) 

35,  2) 

36,  2  ) 

37.2) 

36.2  ) 

39.2  ) 

40.2) 

41 .2 

42.2 

43.2 

44.2 

45.2) 

46.2 

47.2 

48.2 

49.2 

50.2 
5*  .2 
•52,2 

53.2 
54*2 

55.2 

56.2 

57.2) 

53.2 

59.2 

60.2 
61  ,2 
62,2 
63,2 


CODEt  3 
CODE  C3 
CODEC  3 
CODEC  3 
CODEC  3 
CODEC  3 
C0DEC3 
CODE  (  3 
CODE  C3 
CODEC  3 
CODE  ( 3 
CODE (3 
COOE ( 3 
CODE ( 3 
CODE  C  3 
C0DEC3 
CODE  <  3 
CODE  C  3 
C0DEC3 
CODEC  3 
COOE ( 3 
CODEC  3 
CODEC  3 
C  ODE  C  3 
CODE  C  3 
COOE  C  3 
CODEC  3 
COOE  C  3 
CODEC  3 
COOE ( 3 
COOE  C 3 
CODEC  3 
COOE  C  3 
CODE  C  3 
CODEC  3 
COOE C 3 
CODEC  3 
CODE  C  3 
COOE ( 3 
CODE  <  3 


25.2 ) /ll, 

26. 2 )  /1 1  * 
27  »  2  )  /  i  2, 

23.2)  /12, 

29.2) 212. 

30.2) /* 2, 

31. 2)  /12, 
32,21/12, 

33.2)  /!£, 

24. 2) /12, 

35.2)  /12, 

36. 2 )  /l 2, 

37.2 ) /I2» 

39.2)  /12, 
-9,2)/12, 

43.2)  /12, 
4  1 , 2  )/  12, 
42.21/12. 
43.21/12, 

44.2 ) /12, 

45. 2) / 12, 
46  »  2 ) /  12, 
47. 2f /I  2 , 

48. 2) /12, 
49,21/12, 
50,£)/12, 

51 .2  >/ 12, 

52.2)  /12. 

53 . 2 ) / 12. 

54 .2  )  /l  2, 

55.2) /12. 

56.2 ) /12, 
S',  ,2>/12, 

58. 2) / 12, 

59.2)  /12. 

60. 2) /12. 

61 .2) /l 2. 

62.2)  /12, 
63, 2 )/l 2, 


25.Z002 8/ 
26.20017/ 
27,20018/ 
28.200CA/ 
29.200CB/ 
30,2  OOCC/ 
31  ,  200CD/ 
32,20068/ 
33, 20069/ 
34 ,2 006A/ 
35 , Z  0066/ 
36,20002/ 
37,20003/ 
38,20004/ 
39,20005/ 
40,20006/ 
41  ,20007/ 

42. Z006C/ 

43. Z006D/ 

44. Z000A/ 

45. Z000B/ 
46  ,20054/ 
47,20055/ 
49, 20056/ 
49. 1  0057/ 
53,20064/ 
51  ,20065/ 
52,20052/ 
53,20053/ 
54. Z 0024/ 
55,20037/ 
56, Z 0038/ 
57,20027/ 
58,20028/ 
59,20058/ 
60.Z0039/ 
61  ,Z 0020/ 

62 ,  Z002C/ 

63, Z005A/ 

64,  Z0066/ 


UNCLASSIFIED 


J-17 


UNCLASSIFIED 


DATA 

CODE!  1* 

64.2 ) .CODEC  2. 

64, 2) .CODEC  3. 

64 

2 

>  /I  2  » 

66 

20067/ 

DATA 

CODECl  « 

65,2 ) .CODEC2. 

65. 2). CODECS. 

65 

2 

>/10. 

20 

ZOOOF/ 

OATA 

CODEC  I. 

66,2)  .CODEC  2, 

66.2 ) .C00EC3, 

66 

2 

)  / 1  2  , 

67 

200C8/ 

DATA 

CODEC  I. 

67.  2 

)  •  CODE  C  2 , 

67.2 ) .CODEC  3. 

67 

2 

)  / 1 2  « 

68 

200C9/ 

DATA 

CODEC  1. 

68,2 

)  .CODEC  2  , 

68.2 ) «  CODE ( 3 , 

66 

2 

)  /  1 2 , 

69 

20058/ 

OATA 

CODEC  l. 

69,2 

> .CODEC  2, 

69.2) .CODEC  3. 

69 

2 

)  / 1  2  , 

70 

20033/ 

DATA 

CODEC! , 

TO, 2 

) .CODE (2, 

70.2 ) .C00EC3. 

70 

2 

)/  12, 

71 

20034/ 

OATA 

CODEC  l. 

71  ,2 

) .CODEC  2. 

71 ,2 ) .CODE  C3  « 

71 

2 

>  /I  2. 

72 

20035/ 

DATA 

CODEC ! , 

72,2 

) .CODEC  2, 

72.2). CODEC  3. 

72 

2 

)  / 1 3, 

73 

2  006C / 

DATA 

CODEC  l  . 

73,2 

) ,C0DE(2, 

73,2 ) .C0DEC3. 

73 

2 

>/13, 

7* 

20060/ 

OATA 

CODEC  1. 

74.2 

) , CODEC  2, 

74,2) .CODEC  3, 

74 

2 

)  /13, 

75 

2004 A/ 

OATA 

CODECl  . 

75.2 

) .CODE ( 2  , 

75.2 ),C00EC3, 

75 

2 

)  /  13, 

76 

20048/ 

DATA 

CODEC  1. 

76,2 

) .CODEC  2, 

76,2) .C0DEC3. 

T6 

2 

)  /I  3, 

77 

2004C/ 

OATA 

CODEC!  . 

77,2 

) , CODE  C  2 , 

77,2). CODEC  3, 

77 

5 

)  / 1  3, 

78 

ZOOwD/ 

DATA 

CODEC 1« 

73,2 

) .CODEC  2, 

78,2) .C0DEC3, 

78 

2 

)  / 1 3. 

79 

20072/ 

DATA 

CODECl. 

79,2 

) , CODE ( 2 , 

79,2) .C0DEC3, 

79 

2 

)  /  1 3  » 

80 

200  73/ 

DATA 

CODEC  1 » 

83.2 

) .CODE  C  2  < 

80,2 ) • CODE  C  3  « 

60 

2 

)  /  1  3. 

81 

20074/ 

DATA 

CODEC  1 , 

81,2 

) .CODEC  2, 

81.2) «  CCDE  C  3  , 

81 

2 

)/13. 

82 

20075/ 

DATA 

CODEC! . 

82,2 

) • CODE  C  2 , 

82,2 ).C0DEC3. 

82 

2 

)/13, 

63 

Z  0076/ 

DATA 

CODEC ! « 

83,2 

) .CODEC  2. 

83.2) .C0DEC3, 

83 

2 

)  /i  3. 

84 

20077/ 

OATA 

CODECl. 

84,2 

) • CODE ( 2 , 

84.2 ), CODEC  3, 

64 

2 

)  /13. 

85 

20052/ 

DATA 

CODEC  1 . 

85,2 

} .CODEC  2, 

65,2) .C0DEC3, 

85 

2 

)  / 1 3. 

86 

Z0053/ 

DATA 

CODEC  1. 

a6,2 

>, CODEC  2, 

86. 2) .CODEC  3. 

86 

2 

>  /13» 

87 

Z0054/ 

DATA 

CODECl. 

87,2 

) .CODE ( 2  « 

87,2 ), CODECS, 

87 

2 

)/  13. 

88 

20055/ 

DATA 

CODEC  1. 

88,2 

) .CODEC  2. 

68.2) .CODECS. 

88 

2 

)  /1 3 * 

89 

Z0C5A/ 

DATA 

CODECl. 

39.2 

) .C0DEC2. 

89. 2 ). CODEC  3, 

89 

2 

)  / 12. 

90 

2005b/ 

OATA 

CODEC  1. 

90.2 

)  .CODE ( 2  • 

90,2) .C00EC3 , 

90 

2 

)/l3» 

91 

20064/ 

DATA 

CODEC  1* 

91.2 

) , CODE  C  2, 

91,2), CODE  C  3 • 

91 

2 

)  / 13  r 

92 

20065/ 

DATA 

CODECl. 

92,2 

1 .CODEC  2, 

92. 2), CODECS. 

92 

2 

)/12» 

93 

7.  0003/ 

OATA 

CODER  DC  1 

.1  ). 

CODEROC  ?• 

1 ).C00ERDC3.1 )/ 

1, 

2.21/ 

DATA 

CODEROC 1 

.2)  . 

CODERO ( 2 • 

2  ) «  CODEROC  3,2)/ 

2* 

3. 21/ 

DATA 

CODERO  C 1 

,3)  , 

CODEROC  2. 

3 ) , CODERO  C  3 .3  )  / 

3. 

4,21/ 

DATA 

CODEROC  1 

.4  ), 

CODEROC  2. 

4 ), CODEROC  3,4  )/ 

4, 

6.21/ 

OATA 

CODEROC  1 

,5)  , 

C0DERDC2. 

5 ) .C0DERDC3.5  )/ 

s. 

0.21/ 

DATA 

CDDERDC  1 

.6). 

CCDERDC  2. 

6). CODEROC  3,6)/ 

13 

,7,22/ 

DATA 

CODEROC  1 

.7), 

C0DERDC2, 

7 1 »  CODERO  C  3 ,7  )/ 

13 

•  flf 

23/ 

cNO 

END  OF  OCEC  UPRlNT  PROGRAM  -  -  - . LINES  PRINTED-  1431 


J-18 


UNCLASSIFIED 


^  •  *  *?■  9*w* ,. 
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APPENDIX  L 

COMPUTER  PROGRAM  CODE  LISTING 


IBM  ALGORITHM 


i/'*'  ^vv,  v,’  <M* 


.,-  ^  aKswaw^p-  •'"  w  ' 


UNCLASSIFIED 

START  OF  DCEC  UPRINT  PROGRAM  DSNAME= 0003 1 . I BM .FORT 

C  PROGRAM  IBM 

IMPLIC  n^TNTEGER(A-Z) 

REAL  CF3.CF4.ERRATE 

C*******  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  /G32BIT/MASK!  32), COMA SKI  3  2) ,L I BI T ( 32 > ,L 2B IT( 32 > 

INTEGER  MASK, COMASK, LIBIT. LZBIT 
C 

CO MM ON/BUFF/P EL BUF{ 60, 2 ) . CDBUF! 240 ) , QTBUF( 60. 2 ) , 

*  STF9UFI24Q ) ,  STATI3000) 

CO  .MM  ON/HUFF/ CO  DEI  3, 92, 2  >  .  CODEROI  3.  <5  ) 

COMMON/E  RAT /ERRORS  12500) 

C***t*** **** ************  PILE  DEFINITIONS  ******************** 

COMMON/FI LE S/TERM, LPFIL. PELF XL, OTFIL. ERF IL 
C 

c*********** **********  LABELLED  COMMON  VARIABLES  ********************** 

C 

CQMMON/I VAR/PELMAX  ,  VRE  S»  EPHASE.CMPMAX  *£RRMQD  .LIN  MAX, K 
COMMON /PV  AR/X  NLNNO, OTLNNO » OTELW, INELP , CDELP, OT  ELP.CDELW , 

*  CDELCT, INELCT.TCDATA.TCDEL .ERRPNT , ERRCFF,ERRLIM» 

*  -•  ERRCNT , 1 NL  NCT , CONS  EC .LNNOBF, Bl CNT ,  ■ 

*  INCOD, INREF.OTCOD.CTREF.STFBIT 
COMMON/I CHAR/DD, II, MM, TT.NN, YY 

COMMON/LOGI C/ SEARCH, DI AG . SYNC ,LSS, WRITE, ZERO .LEFT , CHCOL, ONE. 

*RL  FL  AG,  EP  FLAG 

LOGICAL  S EARCH.DIAG. SYNC, WRITE. LEFT, CHCOL. ONE, RLFLAG.EPFLAG 
C 

C  RE AO  INPUT  PARAMETERS 

-  -  90  WRITE!  TERM,  100)  ■  —  •  . . . -  -  - 

100  FORMAT (• SPAR AMETERS:  INPUTC=I).  OR  DEFAULT (=0) ?• ) 

RcADtTERM.HO  ,ERR=90)  INSW 
XIO  FO RMAT! A  1  )  ... 

IF  (INSW.EQ.OD)  GO  TO  3X5 

IF  ( I NSW*  NE # 1 1 )  GO  TO  90  . 

C 

C  RE AO  DIAGNOSTIC  SWITCH 

114  WRIT  El  TERM,  115) 

115  FORMAT !• SDI AGNOSTIC  PRINTOUT?  (Y  OR  N)J  ») 

READ1T  ERM  » 110)  INSW 

IF(INSW.EQ.YY)  GO  TO  116 
IFIINSW.EO,  NN)  GC  TO  120 
GO  TO  114 

116  CONTINUE 

....  -  OIAG».TRUE.  - -  - -  - - - -  • 

C 

C  RE AO  MAXIMUM  NUMBER  OF  PELS  PER  LINE 

r  -  . 

120  CONTINUE 

WR  ITEI TERM, 130)  .  .. 

130  FORMAT  I* SENTER  MAXIMUM  NUMBER  OF  PELS  PER  LINE:  •» 

READ! TERM ,140  »ERR=l 20)  PELMAX 

- 140  FORMAT  114)  —  ----- - - - - -  - 

IF IPELMAX.GE.l  .AND. PELMAX. LE. 1728)  GO  TO  160 
WR  ITE! TERM,  150)  PELMAX 

150  FORMAT  I*  ONUMBER  OUT  OF  RANGE  t  =  ».I6.«)*> 

GO  TO  120 
C 

C  READ  VERTICAL  SAMPLING 
C 

--  160  CONTINUE  . . .  - . —  . . 

WRITE!  TERM,  170) 

170  FORMAT <• SENTER  VERTICAL  SAMPLING:  ») 

READ  I  TERM , 1 80 ,ERR=1 60 )  VRES  - 

180  F0RMATII2) 

.  .  IF  I VRE  S»  G  E, 1 • AND, VRES. LE ,10)  GO. TO  190 
WRITE!  TERM,  150)  VRES 
GO  TO  160 

C  READ  PARAMETER  K 
C 

190  CONTINUE 

WRIT E  <  TERM, 192) 

192  FORMAT (‘SENTER  PARAMETER  KJ  * )  . 

READtTERM, 140,ERR=1 90)  K 

IF IK.Gc.l .AND.K.LE.3000 )  GO  TO  200 

-  WRITE!  TERM,  150)  K  -----  - . .  ••  - . 

GO  TO  190 
C 

C  READ  ERROR  PATTERN  PHASE 

t  ,  UNCLASSIFIED 


)  .  .  •  (V 


tnrjpi'+v-i  vfv*' i’tw*'  "‘ 


k-  •■»er(^7jr-- -rw*"  ’'”"  'W^PI‘  ^"5'#r’"w  * 


,'i •  •■' ' ” "■”’ •'  -v?-'  ,v  ■*',5C' - 


-v— •-‘'-r-r; 


UNCLASSIFIED 


200  CONTINUE 

WRITE(TERM,210) 

210  FORMAT (• *£NTER  ERROR  PATTERN  PHASES  •) 
REAOITERM ,  2 20 , ERR=2 00 )  EPHASF 
220  FORMAT  (II  ) 

IF(EPHAS£.G£.0.AND.EPHASE.L£.3>  GO  TO  240 
WR  ITE(  TERM,  ISO  )  EPHASE 
GO  TO  200 


READ  MINIMUM  COMPRESSED  LINE  LENGTH 

24  0  CONTINUE 

WR I TE ( TER  M , 250 ) 

250  FORMAT ( *  SEN TER  MINIMUM  COMPRESSED  LINE  LENGTHS  1 
RE  AD( TERM  » 1 40  *  ERR=240 )  CMPMAX 

IF(CMPMAX.GE.O. AND. CMPMAX.LE. 1728)  GO  TO  320 
WRITE(TERM, 150)  CM»MAX 
GO  TO  240 

READ  NUMBER  OF  SCAN  LINES  TO  fc)E  PROCESSED 
320  CONTINUE 

WRITE  (TERM,  330  )  ~ 

330  FORMAT  (**NUM8ER  OF  SCAN  LINES  TO  BE  PROCESSED*? 
READ( TERM • 1 40,ERR=320 )  LINMAX 
IF (L I UMAX . GE.l  . AND. L INMAX  ,LE .300  0)  GO  TO  280 
WRITE!  TERM,  150)  LINMAX 
GO  TO  320 

READ  ERROR  MODE 


280  CONTINUE 

WRITE! TERM, 290) 

290  FORMAT (• SERROR  MODE*  ?  (M* MANUAL  »T=T  AP  E,  N=NO  ERRORS)*) 
READ (TERM. 110,ERR=280)  ERRMOD 
IF (ERRMOD .EQ. MM )  GO  TO  300 
IF(ERPMDD.EQ.TT)  GO  TO  315 
IF (ERRMOD. NE.NN)  GO  TO  280 
GO  TJ  350 


READ  ERROR  LOCATIONS 


300  CONTINUE 
ERRLI  M=1 

305  REAO (TERM , 140)  ERROR S( ERRLI M ) 

IF (ERRORS (ERRLIM).EQ.9S9S)  GO  TO  310 

—  -  ERRLIM=ERRLIM+1  -  - 

GO  TO  30  5 
310  CONTINUE 

ERRL  IM=ERRL  IM-1 
GO  TO  350 

READ  ERROR  TAPE  FILE  AND ‘ OPEN 


315  CONTINUE 


ERRLI M=l 

REAO(ERFIL, 3 18. END* 31 7)  ERRORS! ERRLI M) 
ERRLIM=ERRLIM+1 

316  READIERFIL. 31 8, END* 31 7)  ERRORSt ERRLI M ) 

318  FORMAT  (116) 

ERRORS (ERRLIM)=ERRORS( ERRLI M)+ ERRORS (ERRL I M— 1 ) 

-  ERRHM*ERRL1M*X  •  •  . . .  .......... 

GO  TO  316 

317  ERRLI  M=ERRLI  M—  1  . . 

350  CONTINUE 


360  CONTINUE 

WRITE  INPUT  PARAMETERS 


WRITE ( LPFIL. 400)  PcLMAX. VRES »K . EPHAS E. CMPMAX.L I NMAX 
400  FORMAT  (•  1  INPUT  PARAMETERS!  •  / 

*  '  *0  MAXIMUM  NUMBER  OF  PELS  PER  LIN£=».I6/ 

*  *  0  VERTIC A-  SAMPLINGS  N=*  .14/ 

*  *  ©PARAMETER  K  =*,14/  .  ..... 

*  • 0  ERROR  PATTERN  PHASE  =*,14/ 

*  *  0  MI N I  MUM  COMPRESSED  LINE  LENGTH  =*,14.*  BITS*/ 
--  *  -  •  -•-•©NUMBER  OF  SCAN  LINES  TO  BE  PROCESSED  -**.16) 

IF (ERRMOD.SQ.NN)  WR ITE( LPFIL ,41 0 ) 

410  FORMAT  COND  ERRORS  INSERTED*) 

IF (ERRMOD .EQ.MM)  WRITE (TERM, 1 40 )  ( ERRORS! I ), 1=1 . EFRLIM ) 


UNCLASSIFIED 


L  ? 


.  JUS  ’.JkSWJW’  vfc*  I 


I'M  .W. 


UNCLASSIFIED 


IFCERRNDD.SO.TT)  WR  I  T£  (  TERM*  420  >  ERRLI  M 
♦20  FORMAT  (112,*  ERRORS  03TAINED  FROM  ERROR  TAPE*) 

£»***«********««*«*»*  3EGIN  PROGRAM  *  +  *•***********************#***«,*** 

C 

C  INITIALIZE 
C 

TCOEL*0 
TC  DA  TA  «0 
EftRPNT  =  1 
ERRCNT=0 
INLNCTaO 

ERROFF=£PHASE*102A 

CDELCT=32 

0T3LP*  I 

CDELP* 32*1  —  •  - 

CONS  SC  =  1 
INSEF=1 
INCOO*  2 
OTRHF=l 
CT  CQD=2 
STFdIT=0 
C 

00  800  1*1 ,240 
STFBJF<I)=0 
CD3UF< I) =0 
80  0  CONTINUE 

00  850  1*1 , 60 
OTBUF( I. JTREF)=0 
OT  8UF ( I*  OT COD )=0 
PEL3UF (1 » INREF) *0 

PELBUFU,  INCOD)*0  -  . . 

850  CONTINUE 

SEARCH*. TRUE# 

SYNC*. FALSE. 

WRITE* .FALSE. 

C 

C  SEARCH  MODE:  LOOK  FOR  E0L1  BIT-BY-BIT 
C 

900  CONTINUE  - - - - -  •  -  • 

CALL  GETL I ( 13 (MODE. LBITS.L  ) 

GO  TO  (910.930,930.920) .MOOE 
STOP  900 
910  CONTINUE 
C 

C  EOL  NOT  FOJNDS  ADVANCE  POINTER  AND  TRY  AGAIN 
C 

CDELP=CDELP+1 - - - - - . 

GO  TO  900 
920  CONTINUE 

STOP  9  20  •  - - 

930  CONTINUE 

C  . 

C  EOL  FOUND 
C 

-  SEARCH*. FALSE.  - -  - - - - - - . 

COELP=CDSLP+L 

IF (MR  ITS)  GO  TO  935 

WRITE*. TRUE.  ~  '  * 

GO  TC  960 
935  CONTINUE 
C 

C  CET  OUTPUT  DECDOE  LINE  TO  0  AND  WRITE  CUT 

DO  950  1*1,60  ....  . . . . . ■  -  ■ 

OT  BUF(  I , OTCOD ) =0 
9^0  CONTINUE 

WRITE ( QTFIL)  OTLNNO  » PELMAX  > ( OT BU F( I .CTCOD) ,1=1 »  60 ) 

QTLNNO— _NN3  9F 

960  CONTINUE  .  . . 

IF  (MOD £-2)9  65.  10  00.900 
965  STOP  965 

1000  CONTINUE  -  - - - ~ - 

C 

C  PERFORM  ONE-DIMENSIONAL  DECODE  OF  A  COMPLETE  LINE 
C  FIRST, SET  OUTPUT  BUFFER  TO  WHITE 
C  (ONLY  BLACK  RUNS  WILL  BE  INSERTED) 

C  ... 

DO  1010  1=1,60 
0T8UF( I .OTCOD) =0 

1010  CONTINUE  . .  - - - 

C 


INDEX*  3 
CO LOR* l 


L-3 


UNCLASSIFIED 


'"•"TW"' 


UNCLASSIFIED 


0TELP*1 

BlCNTaO 

1020  CONTINUE 
L*  0 

CALL  ON; IBM (INDEX, CCLOR. STATUS. L ) 

GO  TO  (1030,1070, 1070.1035,1 040) .STATUS 
C  1  2  3  4  5 

STOP  1 000 
C 

C  SUN  added;  CHECK  length  of  output  line 

c 

1030  CONTINUE 
ONES. TRUE. 

IF(OTELP-l-PELMAX)  1031 .1032,1050 

1031  CONTINUE 

IF ( CHCOL ) COLOR=MOD ( COLOR* 2 ,2 ) FI 
IN  0£X=3 
GO  TO  1020 
300  0  CONTINUE 
C 

C  PERFORM  TWO-DIMENSIONAL  DECODE 


C  FIRST.  SET  OUTPUT  SUFFER  TO  WHITE 
C  (ONLY  SLACK  RUNS  WILL  BE  INSERTED) 

C 

DO  3010  1*1.60 
QTBUF( i.oTcao)*o 
3010  CONTINUE 

C  .....  ... 

INDEX* 1 
COLOR* 1 
0TcLP=1 

RLFlAG*. FALSE. 

EPFLAG*. FALSE. 

C 

3020  CONTINUE 

CALL  TWO I BM( INDEX,  COLOR. ST ATUS.L ) 

GO  TO  (3030.1070.1070,1035,1040)  .STATUS 
C  1  2  3  4  5 

STOP  3000 
C 

C  RUN  ADOECJ  LOOK  FOR  NiTXT  RUN 
C 

3030  CONTINUE 

~  ONE*. FALSE.  . 

IF (OTELP— 1— PELMAX}  3031.3032.1050 

3031  CONTINUE 

IF(CHCOL) COLDR=MOD( CUL0R+2»2)*1 
IN  DEX*  1 
GO  TO  3020 
C 

C  LINELENGTH  *  PELMAX?  CHECK  RL  PREFIX 

3032  CONTINUE 
RL  OR  a  2 

IF (RLFLAG)  RLQREZ=1  -  -  - 

CALL  GETL I ( RL OREZ. MODE .LBITS.L  ) 

GO  TO  (3034.1050,1050, 1050) .MODE  .  _ 

3034  CONTINU* 

CDELP=CDKLP*L 

-  -  IF(LSITS.NE.l  )GC  TO  1070  -  - 

C 

C 

C  LINE  LENGTH=PELMAX  ;  CHECK  FOR  FILL  AND  LOOK  FOR  EOL 
C 

1032  CONTINUE  _ _  .  .  ... 

ZERO=-l 

1033  CONTINUE 

•--- . ZERO*  ZERO  *1  •  -  - - - - - 

CALL  GETLK1  .MODE,  LBITS.L) 

C 

GO  TO  a  034,1050,1050, 1050  ), MODE  '  - 

C 

C  CHECK  FOR  FILL  ... . . . 

C 

1034  CONTINUE 

CDELP*COELP*L 

IF (L BITS . EQ .0 )  GO  TO  1033 

IF(ZERO.LE.IO)  GO  TO  1070  ' 


UNCLASSIFIED 


b>;,  i 


ft*- '  IBPSCjfV  Ij&TFS** '  WW,  ”■ 


UNCLASSI F I  ED 


SOL  FOJNO;  CHECK  TYPE 

CALL  GETlK  l.MODE.LBITS.L) 

IF  (LUITS.EQ.O  )  MCDE=2 
IF<LdI TS.ED.l 5  MDDE=3 
GO  TO  (10/0,1060,  1060.  1080). MODE 

PREMAT JRE  EOL  DETECTED 

cOLl  DETECTED 
*1035  CONTINUE 

CDELP=COELP*L  . 

STATUS** 

IF  (OTELP  .LE.5)  CONSEC=CCNSEC  «■  1 
IF (CQNSEC-2 >1000,1000,2000 

EOL 2  DETECTED 

'l0*0  CONTINUE 

CD  EL  P*  CD£LP*L  "  *  — 

ST  ATUS=5 

GO  TO  1000 

:  PROBLEMS .PROBLEMS 

*1 050  STOP  1050 

:  LINE  LENGTH  CORRECT.  EOL  DETECTED  PROPERLY;  WRITE  OUTPUT  LINE 

i* 

*1  060  CONTINUE 

CDELP=CDELP+L 

WRITEIOTFIL  >OTLNNO.  PELMAX.  (OT8UF  (  I  .QTCOD  )  , 1  =  1,60) 

CTLNN0=LNN03F 

CONSEC=l 

IF  (ONE  )  SYNC*.  TRUE.  -  . -  -  -  —  - 

TE MP=OTR£F 
OTREF=OTCOO 
OT  CGO=  TEMP 

IF (MODE. EO • 2 )  GO  TO  1000 
GO  TO  3000 

:  LINE  TOO  _ ONG  OR  NO  MATCH 

C  -  - .  . 

1070  CONTINUE 

WR  ITS* .FALSE. 

C 

C  LINE  SHORT 

C  . - 

1080  CONTINUE 

IF(. NOT. SYNC)  GO  TO  1090 

:  WRITE  LAST  GOOD  LINE 

C 

WR ITE ( OTFI L)  OTLNNQ , PELMAX , ( OTBU  F{ I , OTREF ) . 1  =  1 . 60 ) 

SYNC*.  FALSE. 

GO  TO  1110  ...  --  _ 

1090  CONTINUE 
C 

C  WRITE  A  WHITE  LINE  . — -  - 

C 

DO  1100  1=1 .  60 

1100  OTBUF(  I,OTC0D)=0  . . . 

WR IT E( OTF IL )  OTLNNO, PELMAX, (OTBUF(I ,OTCOD> .1=1 ,60) 

1110  CT  LNNQ=LNNOBF  .  _  _ _  . 

IF ( STATU S.EQ.4)  GO  TO  1000 
SEARCH*. TRUE. 

GO  TO  900  . . . . . . . . . . 


:  END  OF  MESSAGE 

*2000  CONTINUE 

WRITE! LPFIL ,2010)  CONSEC  . 

2010  FQ  PM  AT  (  •  0  SN  D  OF  MESSAGE  DETECTED  C.I2,»  EOL**S)*) 

;  REPORT  COMPRESSION  FACTOR,  ERROR  SENSITIVITY  FACTOR, 8IT  ERROR  RATE 
ERRATE=FLOAT(ERRCNT )/FLOAT(TCOEL ) 

WR  ITE (L^FIL ,2020)  TCDEL , TCDATA , STF8 I T ,1 NL NCT.ERRATE 


UNCLASSIFIED 


nno  o  nnn  nor.  no  on 


UNCLASSIFIED 


2020  FORM  AT  {‘OTOTA-  NUMBER  OF  C00E0  BITS  =  *,18/ 

*  *  0  TOTAL  NUMBER  OF  COOED  DATA  BITS  *  *.IS/ 

*  •  )  TOTAL  NUMBER  OF  2-OIM  LINES  =  *,13/ 

*  *0  TOTAL  NUMBER  OF  INPUT  LINES  PROCESSED  =  ',18/ 

*  • OB  I T  ERROR  RATE  =  •  ,014,6) 

CALL  STATS! STAT, INLNCT ,DIAG) 

CF  3=  FLOAT (  PEL  MAX  )  AFLOAT!  I NLNC  T  ) /FL  0  A  T  !  TCDEL) 

C“4=FLUAT  (PEL  MAX  i  *  FLOAT  l  INLNCT  I/FLOAT  P  IDATA) 

C 

WR  IT '£ (  L-*F  IL.2030  )  CF3.CF4 

2030  FORMAT!* OCJMPRESSI ON  FACTOR  FOR  02  MACHINE  (CF3I  =‘.F8.4/ 

*  *0  COMPRESS  I  ON  FACTOR  FOR  G4  MACHINE  (  CF  4  )  =•  ,F8.*>  ) 

C 

CALL  ERRMES(PElBUF,0T3UF  ,PELMA  X  ,  VRES.ERRCNT) 

c 

STOP 

END 

SUBROUTINE  GET  LK LB  ITS  ,  MODE  ,  V*  R  D.  L  > 

IMPLICIT  1  NTEGER ( A -  2  > 

C1***M»  LABELED  COMMON  /G32BI  T /  ******* 

C 

COMMON  /G  32UI T /M AS< ( 32  ) ,C  QMA  SK  ( 3  2)  ,LIBIT!32)  ,LZ8IT(32) 

INTEGER  MASK, CGMASK ,LI BIT .LZBI T 
C 

C0MM0N/3UFF/PELBUF!  60, 2) .CDBUF!  2  40) .GTBUF (60,2 )  , 

*  STFBUF! 240  )  ,  STAT(3000> 

COMMON/HUF= /CDOE! 3.92, 2) .CODSRDI 3.9i 
CO  MM  ON/E  RAY /ERRORS ( 2500  > 

*********************  LABELLED  COMMCN  VARIABLES  ********************** 

CO  MM  UN /I  VAR/PELMAX  ,  V  RE  S .  EPHAS  E.  CMPM  AX  ,  ERRMOD ,  L  INMVX.K 
COMMON /PV  AR/IN_NND .OTLNNO .0T3LW, INELP , CDELP . OT EL P . CDELW , 

*  CDELCT . INELCT ,TCDAT A ,TC DEL . ERR aNT, ERROFF, ERRL I M , 

*  ERRC NT, INLNCT, CONS EC, LNNCBF, 81 CNT, 

*  INCOO. INRSF.OTCOO.CTREF, STrBIT 
CO  MM ON /I  CHAR/ DD, II, MM, TT ,NN, YY 

COMMON /_OGI  C/SEARCH, 01  AG,  SYNC  ,LSS, WRI  TE .  ZERO  . L EF T  ,CHCCL  . GNE  , 
*RLFL»G .epflag 

LOGICAL  SEARCH. D I  AG, SYNC . WR I TE ,L EFT , C HCOL . CNE , RLF LAG , EPFL AG 

****************************  BEGIN  PROGRAM  *************************** 

MO DE=4 

RETRIEVE  NEXT  BIT  FROM  C0‘3UF 
100  CONTINUE 

ENCODE  A  NEW  LINE  IF  NECESSARY 

IF(L3ITS4CDELP-I ,wS. CDELCT)  GO  TO  200 
IF  (CDELCT-C0ELP+-1  )  170.190,180 

170  STOP  170 
180  CONTINUE 

STFBUF  < 1 >=143!  STF3UF.CDELP, C  DELC  T— C  DEL  P  + 1 ) 

190  CONTINUE 

CO  ELP= 32- (CDELCT -CDcLP ) 

CALL  ENCODI 
200  CONTINUE 

WR0=I4B<  STFBUF, CDELP. LSI  TS) 

L=LB IT  S 

IF  (L.LT.  1  3)  GO  TO  250 
IF  (WRD  ,cU  »C.ODERD(  3,6))  GO  TO  300 
IF (WRD  ,E3 ,COD£RD(3 ,7 ) )  GO  TO  400 

2  jO  cont  inue 

MQDE=1 
RETURN 

20  0  CONTINUE 
MO  DE=2 
RE  TURN 

400  CONTINUE 
MODE  =3 
RETURN 
ENO 

SUBRJUTi,..  ENCODI 

IMPLICI1  N  r  .>CR  (  A-  Z  ) 

*******  LAB  El  *-  i  COMMON  /G32HH  •  ******* 

CO  MM  ON  /COO  itT/MAS<(  0  3  )  ,  C  MA  SK  (  3?>  -t  l  •ilT(.V'),'  .‘<,7(32) 

I  NT,  R  M  A  >  .  COMAS  K  i  L  I  T  !  !  *  ■  OBIT 


I.-" 


UNCLASS  IF  L  0 


UNCLASSIFIED 

C 

CQMM0N/3UFF/PEL8UF ( 60. 2 ) . CDBUF ( 2 *0) .OTBUF<  60,2)  , 

*  STFBUF ( 240 ) «  STAT(3000) 

COMMON  /HUFF/CD DE(  3  •  92  •  2  )  .CODERD  (3*9) 

CO  MMQN/E  R  AY/ERRQRS  (  2500  ) 

C******* ****************  FILE  DEFINITIONS  ******************** 

C 

C0XM0N/FILE3/TERM,LPFIL.P£LFIL.0TFIL,ERFIL 

c 

c********«************  LABELLED  COMMON  VARIABLES  ********************** 


COMMON/I VAR/P3LMAX, VRES, EPHASE.CMPMA X.ERRMCD.L I NMAX.K 
COMMJN/PVAR/INLNNO.OTLNNO.OTELW. INELP  «  CDELFi CTELP.CDELW, 

*  CDELCT  « INELCT .TCDATA .TCDEL .ERRPNT  .ERRCFF.ERRLIM. 

*  ERRCNT • I Nt  NCT , CONS  EC .LNNOBF, 81CNT , 

*  INCOD, I NREF , CTCODt CTREF , STFBIT 
COMM  ON/ 1  CHAR/DD,  I  I ,  MM  ,  TT  ,  NN,  Y  Y 

COMMQN/LOGI C/SEARCH, DI AG. SYNC .LSS.WRITE. ZERO. LEFT. CHCCL. ONE, 

*RLFL  AG,  EP  FLAG 

LOGICAL  SEARCH, 01 AG, SYNC. WRITE, LEFT. CHCOL. ONE, RLFLAG.EPFLAG 
LOGICAL  RLFE.EPFE 

c 

c***********************************  BEGIN  PROGRAM  ******************** 

C 

C  INITIALIZE  VARIABLES 
C 

CDELCT  =3  2 
CDDATA  =0 
00  50  1*2,240 
CD  8U  F ( I)=0 

STFBUF  (I»*0  -  -  —  -  -  •• 

50  CONTINUE 
C 

C  READ  INPUT  PICTURE  FILE 
C 

100  CONTINUE 

RE  ADI  PELF  I L ,END=1 20 , ERR=50  0) 

*  I  M_ NN 0 , INELCT. ( PEL BUF ( I , INCOD ) . I=i , 60 ) 

-  IF ( MOD ( I NLNNO » 1 00) » EQ, 0) WRI TE ( TERM. 1 1 O )-  INLNNO 
110  FORMAT!*  INPUT  LINE  NO.  =*,I6) 

IF (MOD (I NLNNO-1 ,VRES) .NE.O)  GO  TO  100 
IF  (INELCT. LT.PELMAX)  CALL  EXIT 
I NLNCT  =  1 NLNCT  +1 
C 

C  LOAD  OUTPUT  LINE  NUMBER  BUFFER 
C 

-  ••  -  LNNOBF=INLNNO  •  . . -  . —  - 

IF (S  EARC  H ) 0TLNN0=LNN06F 
C 

IF (INLNNO.LE.L INMAX)  GO  TO  140 
C 

C  WRITE  SIX  EOL 1  *  S  ...  .  ..  . 


120  CONTINUE 

. --DO  130  1*1,6  - - - -  • 

CALL  COD IBM (6,0, 0.0,0 .CDELCT  »CDD AT  A ) 
130  CONTINUE 

DO  135  1=1,6 
STFBUF ( I )=CD3UF(  I ) 

135  CONTINUE 
GO  TO  400 


FIRST  OF  K  LINES?  . -  - - -  - 

140  CONTINUE 

IF (M0D(INLNCT-1 ,K) .NE.O)  GO  TO  600  ' 

ONE-DIMENSIONAL  CODING 
WRITE  ONE  EOL l 

■  CALL  COD  I  8M  (6.0 ,0*0,0  .CDELCT  .CDDATA  )•■• 
POLAR*! 


TEST  COLOR  OF  FIRST  ELEMENT 

IF(I 4U(PE_BUF( I , INCOD). 1, 1 ).EQ.O)  GO  TC  150 

FIRST  ELEMENT  BLACK;  ENCODE  O-LENGTH  WHITE  RUN 

CALL  CODELN (0,1. CDELCT, CDDATA) 

POLAR* 2 


UNCLASSIFIED 


UNCLASSIFIED 


C 

C  CALCULATE  RUN  LENGTH  AND  ENCODE 
C 

150  CONTINUE 
RUN*0 

00  200  I  *  1 »  PELMA  X 

PEL=I4  8(PELBUF(1,  INCOD).  I  •  t  >4-1 

IF  (PEL. EQ. POL  4R>  GO  TJ  180 

CALL  CODELN ( RUN .POL AR . CDELCT .CDDATA) 

IF  (.NOT.DIAO)  GO  TO  170 

WRITE! TERM. 160)  RUN .POLAR .CDELCT .CODA TA 
160  FORMAT  (4  I  3) 

170  CONTINUE 
RUN=  I 

POLAR*  MOD  (  POL  AR*2 . 2  )  +1 
GO  TO  200 
180  CONTINUE 
RUN=RUN*1 
200  CONTINUE 

CALL  COD£LN(RUN. POLAR. CDELCT, CDDATA) 

IF  (.NOT.  DI  AG)  GO  TO  210 

WRITE (TERM. 160 )  RUN. POLAR, CDELCT .CDDATA 
GO  TO  210 
C 

C  TWO-DIMENSIONAL  CODING 
C 

600  CONTINUE 
C 

C  WRITE  ONE  EOL 2 
C 

CALL  C  00 1 BM ( 7, 0,0, 0.0, CDELCT, CDDATA) 

C 

C  SET  AO  TO  LEFT  EDGE-1  AND  PQLARITY*WHITE 
C 

A0*0 
POL=  0 

LEFT*. TRUE. 

RLFE*. FALSE. 

. EPFC*.  FALSE. 

C 

C  DETECT  A 1 
C 

620  CONTINUE 
I =AO*  1 

IF ( I «GT .PEL MAX )  GO  TO  640 
630  CONTINUE 

PEL*  I48(PEL0UF(  1  ,  INCOD  ),  I  ,1  ) 

IF (PEL .NE.POL)  GO  TO  640 
1*1*1 

IF(  I  .LE. PEL  MAX  )  GO  TO  630 
640  CONTINUE 
A1*I 
C 

C  DETECT  8 1 

•  C  . 

I  *  AO  *1 

IF(I  .GT.PELMAX)  G3  TO  665 
PELM1  *I48(PELBUF(1  ,  INREF  ),A0»  1  ) 

IF (LEFT)  PELM1=0 
650  CONTINUE 

PEL=I4B(PELBUF(I  .INREF), 1,1  ) 

IF(PEL -NE.PELMI  )  GO  TO  670 
660  CONTINUE  -  . 


PELM1*PEL 
1*1*1 

IF ( I ,L E»  PEL MAX )  GO  TO  650 
CO  NT  IN  UE 
01*1 

GO  TO  730 
CO  NT  INUE 

IF(P5L. NE.POL)  GO  TO  690 
GO  TO  660 
CONTINUE 
81  =  1 

ADJUST  LEFT  EDGE  IF  NECESSARY 


CONTINUE 

IF ( ,N0  T.LEFT) 

IF(.NOT.LEFT) 

POLAR* 1 

AO*  1 


POLAR* 1 4  E( PEL8UF ( 1 .INCOD). AO.l 
GO  TO  740 


L-8 


L 


>*1 


'i 

.»Jn 


t 


UNCLASSIFIED 


r 


L- . . 


n o A  r>  ■  n  '  ono  nno  n oo  n r> r» a  n o a  non  non 


UNCLASSIFIED 


LEFT  s.FALSE. 

740  CONTINUE 

TEST  COLOR  OF  FIRST  ELEMENT  ON  LINE 
IF (AI4NE.1)  GO  TO  750 

IFU48(PELdUF(l , INCOD) .1 .1 ).E0.1 )  GO  TO  800 
FIRST  ELEMENT  WHITE 
750  CONTINUE 

CALCULATE  VERTICAL  LENGTH 

MA8*IABS( Al-91)  -  - 

IF  (MAB—l  )  850.850.800 


CODE  BY  HORIZONTAL  MODE 
80  0  CONTINUE 

TEST  FOR  RUNLENGTH  REDUCTION  . 

RE  DUC*  0 

IF(B1 .GE.A1-1)  GO  TO  810 
IF (AO . EQ . 1 )  GU  TO  810 

COND  IT  ION  FOR  RUNLENGTH  REDUCTION  MET 

RE0UC*MIN0(B1-A0+1 ,3)  . . 

CHECK  RL  CORRELATION 

810  CONTINUE 
RLOREZ  *2 

IF(RLFc)  RLOREZ* 1 

CALL  C GDI 6M (RLOREZ. ®OLAR , AO . Al— REDUC • .TRUE . » CDELCT . CDDAT A ) 
--  HL  FE* .  TRUE.  •  -  -  - 

EPFE*. FALSE. 

A0=A  1 
GO  TO  <560 

CODE  BY  VERTICAL  MODE 
850  CONTINUE 

IF  <  A  l  —  81  )  870,880.900  . . . 

870  CALL  C0DI8M(3, 0.0. 0.0, CDELCT, CDDATA) 

EPFE*. false . 

GO  TO  950 

880  CONTINUE  .  . 

RLGRcZ=l 

IF ( RLF  El  RLQREZ*2 

CALL  COD IBM (RLOREZ,  0.0, 0,0, CDELCT, CODATA  b 
EPFE*.r ALSE. 

GO  TO  950 

900  CONTINUE 

IF (EPF E)  GO  TO  92U 

910  CALL  CODIdMU,  0,0, 0,0.  CDELCT,  CDDATA) 

EP  FE=.TRUE. 

GO  TO  950  -  . -  -  -  ----- 

920  CONTINUE 

IF (I4B(C0BUF, CDELCT, U  .EQ.i )  GO  TO  910 
CALL  COOI BM( 5, 0.0, 0.0, CDELCT, CDDATA 1 
EP  FC-.TRJE. 

950  CONTINUE 

RLFE  =  . FALSE. 

A0*A  1 


TEST  FOR  END  OF  i_IN2 
960  CONTINUE 

IF(AO.GT.PELMAX)  GO  TO  205 
PUL=  I4  8(  PEL  BUF(1,  INCOD).  AO,  1  ) 

GO  TO  620 
205  CONTINUE 

RL0REZ=2  . 

IF (RLF E)  RLOREZ=l 

CALL  COD I BM(RLOREZ.O.O .0, .FALSE. .CDELCT. CDDATA ) 
210  CONTINUE 


L-9 


UNCLASSIFIED 


r  SWITCH  CODE  c.  REFERENCE  LINES 

TEMP® I NREF 
INREF* INC  od 
INCOG*  TEMP 

i  TRANSFER  CDBUC  TO  STFBUF 

CO£LW=  (COELCTTJ2-1  I /13 
OC  2  40  I=2,COELW 

.  2.0  Co5tKu|’*CO“UF,,> 

S.V=  LINE  LENGTH ( OAT  A  BITS  PLUS  E0L) 
STAT ( t  NLNCT )®COOAT A*C00ERD<1 . 7 j 
CHECK  COOEO  LINE  LENGTH 

r^VbrF  .M?M<X^<CDELCT-'52  3 

IF(FILL)  400,400,250 

ESO^UNT.'SGe™  SHMIi  F1LL  IT  ™  CMPMAx 

COELCTaCOELCTHFlLL 

ACCUMULATE  STATISTICS  AND  ERROR  CORRUPT 
400  CONTINUE 

IF (ERR MQO ,£ Q« NN)  GO  TO  390 


UNCLASS  IT  IED 


ERROR  CORRUPT 


350  CONTINUE 

;f^5!?-°?-5>*‘™™'3«°FF'TCOEL 

1  (  TRaiT.GT.CDfLCr-32  1  GO  TO  390 


ciRPGR  I N  RAN\3£  L  F  CToPrt  i  tmc*  - 

-  £D  LINE,  CHANGC  APPROPRIATE  817 


- -  *  nv/f-n  i  |  c  Ol  I 

81  T=  I4(K  STFdUFt  S3  3  8  IT+  **2«  1  ) 

QI TsMQOfdlT+l ,2)  *  l) 

z  IrrC.NT  ii^CNT;?TFaUF,eRRaIT^2»l  > 

2  INCREMENT  ERROR  l.IST  POINTER 

360  CONTINUE 

ERRPNT  *£RRPN|T«-1 

.  IF  (tRRPNT.LE.ERRLIM)  GO  tq  350 

:  error  list  exhausted 

ERRPNT  =ERRPNT-1 

\*Wo™LAST  E!W=R 
CO.MPUTc  STATISTICS 
390  CONTINUE 

rr  r*TS-SL  +C3EL-CT-32 

rS/Tl^Tv'0ATA4‘CD0ATA 

IF  OJA  G)  WR  ITSITERM,  160)  I  NLNCT ,  COOATA 
I  «NOT«  DI  AG)  GO  TO  460 

S£fT~7,(^?La>32'  I  >/32 

WRITS!  L>FItL*/,loi  < STFBUFf I  I*?* ^C0ELW, 

450  FORMAT  <6  21  2  I  <  STFS  UF  (  I  >  ,  1  =  i  ,  COEL  Hr) 

460  CONTINUE 
RETURN 

50  0  CONTINUE 
CALL  EXIT 

1X2?$:  ITVINTSGSR?A-°)2,P°LAK’  A,e’pLF.COELCT,CDDATA) 
C0MM0N/3UFF/PEL  3UF(60*2)»  CDBUF( 2  40  I , OTBUFI 60, 2 >  « 


UNCLASSIFIED 


•V  f 


'  ,-'vvSgs 


UNCLASSIFIED 


*  STF3UF ( 240 )  •  STAT(3000> 

CO M  MON /H J  FF/COOE( 3.92. 2).CODERD( 3, 9  > 

COMMCN/ERAY/SRK JRS (2500  > 

LOGICAL  RLF 
C 

c t **************************  *  begin  program  *************************** 

c 

CALL  MI23<  CODERDO  .MODE)  ,  CDBUF  ,  CDELCT  ♦  1 .  COOEPD  <  I  .  MODE  )  ) 
CO£LCT*COELCT*CODE4D(  1  .  MCDE  ) 

GC  TJ  (230.200.100.100.100.800. 600  . MCDE 

C 

C  MO  OH  1  2  3  A  5  6  7 

C 

STOP  1 29 
C 

C  EM  OR  EP  (3.4,5) 

C 

100  CONTINUE 

CDDATA=CDl)ATA«-CjOERD(  1  .MODE) 

RETURN 

C 

C  RL  OR  E2  (  l  .2) 

C 

200  CONTINUE 

CDDATA=CDOATA*CODERD( 1 . MODE ) 

IF  (RLF  ICALL  CGDELN (  6-A  .  PC/LAR ,  CDELCT  ,  CDDAT  A  ) 

RETURN 

C 

C  ADD  E0L1  OR  E0L2  TO  LINE  (6,7) 

C 

800  CONTINUE  •  ■ 

RE  TURN 
END 

SUBROUTINE  ONE  I BM ( I NDEX . COLOR, ST ATUS ,L ) 

IMPLICIT  INTEGER(A-Z) 

C*******  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  / G329IT/MA3< (  32  )  ,  COM  A  SK  (  3  2) ,L IB  I T{ 32 ) .L ZB  I T ( 32 ) 

INTEGER  MASK, COMASK, LIBIT, LZ8IT  -• 

C 

CC  MM  0N/3U  FF/PEL  8UF(60,2), CDBUF ( 240 ) »  OTBUF ( 60*2) . 

*  STF8UF ( 240 ) ,  STATI3000) 

C0MM0N/HJFF/C3DE( 3, 92, 2),C0DERD( 3,9) 

C O MM UN /ER AY /ERRORS (2500) 

C******* **** ************  FILE  CEFINITICNS  ******************** 

C 

CO  MM ON /= I LE  S/TERM , LPF I L . PELF  I L . OTF I L , ERF IL 
C 

c*********************  LABELLEO  common  variables  ********************** 

c 

COMMGN/I V  AR/ PEL MAX .VRES.EPHA SE. CMPM  AX, ERRMOD.L INMAX, K 
COMMON /PV  AR/ 1 NLNN3 , OTLNNC, OTELW  » INELP, COELF. OTELP, CDELW , 

*  COELCT,  INELCT ,  TCDATA.TCDEL  ,ERK°NT,ERRCFF,ERRHM, 

*  ERRCNT, INlNCT.CONSEC.LNNCBF.BICNT, 

*  INCOD, I NREF , OTCGO, OTREF * STFB I T 
COMMON/I CHAR/OD. I  I . MM, TT • NN, YY 

CO  MMQN /_  OG I C/SEARCH.DI AG, SYNC .LSS.WRI TE. ZERO ,L EFT .CHCOL . ONE, 

*RL FLAG  ,EPFL  AG 

LOGICAL  SEARCH, 01  AG. SYNC, WRITE, LEFT, CHCOL. ONE, RLFLAG, EPFLAG 
C 

C***********************  BEGIN  PROGRAM  ********************** 

C 

RECUCsL  -  . . 

C 

C  BEGIN  DECODE  lOOPJ  RETRIEVE  NEXT  CODE  WCRD  LENGTH  (L) 

C  . 

1000  CONTINUE 

1002  LENBIT=C30E(1. INDEX, COLOR) 

CALL  GETLl(LENBIT  t  MODE .LBITS.L) 

IF (01 AG)  WR ITE( TERM , l 0  03 )  LENB I T .MODE .LBITS ,L 

1003  FORMAT  (21  6,  Z8,  16)  . .  -  -  - . 

GO  TO  (1040,1200,1205.1190),  MCDE 

STOP  1040 
1040  CONTINUE 

IF(LdITS,ea ,COOE(  3, INDEX, COLOR) )  GO  TO  1100 
C 

C  NO  MATCH;  ADVANCE  CCOE  WORD  INOEX  VIA  DECODE  THREAD 
C 

*  INDEX=CODE( 2. INDEX, COLOR)  -  . 

IF (INDEX. GE .93 )  GO  TO  1190 

IF(CU0E(1 .INDEX, COLOR). EO.LENBIT)  GO  TO  1040 

C 


L-11 


UNCLASSIFIED 


UNCLASSIFIED 


C  CODE  WORD  LONGER*.  FROM  THE  TOP 
C 

GO  TO  100  2 
C 

C  MATCH  FUUfO 
C 

1100  CONTINUE 

CDELP=CDELPH. 


c 

C  NOT  AN  EOL 

C 

C 

C  TEST  FOR  MAKE  UP  OR  TERMINATING  CODE 
C 

RUNL£N=INDEX-1 

IF(aiCNT.LT.OTS,PfRUNL£N*RSDUC-l  )  RUNLEN=RUNLEN*REDUC 
IF (INDEX. GE .65 )  RUNLEM=<  INDEX-64)*64 
iFtRUNLEN.EQ.O)  GO  TO  1160 
IF  (COLOR.  EQ.l  )  GO  TO  1155 
IFtRUNLEN.LT. 0)  STOP  1100 
C 

C  ADO  3LACK  RUN  TO  OUTPUT  BUFFER 
C 

00  1150  1=1 .RUNLEN 

CALL  M123  (  C  QL3R— 1  •  OTB'JF  (  1  .  OTCOD  5  ,  CTELF, 1  ) 
0T=LP=0TELP+1 

IF (OTELP-1 .GT.PELMAX1  GO  TO  ilSO 
1150  CONTINUE 

GO  TJ  1160 
C 

C  ADO  WHITE  RUN  TO  OUTPUT  BUFFER  (BY  DEFAULT) 

C 

1155  CONTINUE 

OTELP= OTELP+RUNLEN 
IF  (OTELP-1. GT.PELMAX)  GO  TO  1180 
C 

C  OUTPUT  LINE  LESS  THAN  OR  EQUAL  TO  MAX  SPECIFIED 
/* 

~1163  CONTINUE  . 

IFdNOEX.LT. 65)  GO  TO  1170 
IN  OEX=  3 
GO  TO  1000 


C 

C  RUN  ADDEC  TO  OUTPUT  LINE;  LENGTH  LESS  THAN  OR  EQUAL  TO  °ELMA X  (1) 
C 

1170  CONTINUE 

CHCOL= .TRUE . 

ST  AT  US= 1 
RETURN 
C 

C  RUN  ADDEC  UNTIL  PELMAX  EXCEEDED  J  LINE  TCO  LONG  <2) 

C 

1180  CONTINUE 

IF(DIAG)  WRITE(TERM,1185>  ( OTBUF  (  I  .OTCOD  )  •  I  =1  »  60  > 

1195  FQ  RMAT  (6 Z  1  0  )  -  . . 

STATUS=2 

RETURN 

C 

C  NO  MATCH  FOUND  IN  CODE  TABLE  (3) 

C 

1190  CONTINUE 
ST  ATUS=3 

RETURN  - . - 

C 

C  EOLl  DETECTED  (4) 

C  . . 

1200  CONTINUE 
STATUS=4 
RETURN 
C 

C  E0L2  DETECTED  (5)  -  - -  - 

C 

1 205  CONTINUE 
ST  ATUS=5 
RETURN 
END 

SUBROUTINE  TWOIB,M(  INDEX,  COLOR.  STATUS, L) 

IMPLICIT  INTEGER ( A- 2) 

C*******  LABELED  COMMON  /G32BIT/  *******  ■  -  - 


COMMON  /332BI T/MASKI 32  ) .COMASK ( 32 > , L I  BIT <32 > ,L Z BIT< 32) 
INTEGER  M ASK, CO MASK, LIBIT, LZBIT 


L-1 2 


UNCLASSIFIED 


•M3S- 


UNCLASSIFIED 

C 

CQ  MMQN/3UFF/PEL  DUF!60»Z) ,CDQUF(240  > . OT EUF ( 60 . 2 ) , 

*  STFBUF ( 240 ) <  STAT (3000) 

CO«MON/HUFF/CODE(  3  . 92  *  2  > ,  CCIDERD  (3.9) 

CO  MM  ON /HR  AY /ERRORS  (2  50  0) 

C* ***************  *******  FILS  DEFINITIONS  ******************** 

C 

COMMON/FILES/TERM.LPFZL.PELFIL.  ctfil .erfil 

c 

c *********** **********  labelled  common  variables  ********************** 

c 

COMMON/!  VAR/P  EL  .MAX  . VRES » EPHASE . CMPMAX , ERRMCD.L  I  NM/X.K 
COMMON /PVAR/IN^NNO, j TLNNO * OTELW ♦ I NELP . rDEL P ♦ OTELP .CDEL W . 

*  CDELCT . I NELCT *  TCDAT A*TCOEL < LRRPNT * ERROFF.ERRLIM, 

*  ERRCNT , INLNCT  .CONSEC .LNN0BF.B1 CNT , 

*  INCOD.  INREF .CTCOD. GTREF, STFBIT 
COMMON/ICHAR/DD.I I .MM.TT.NN.YY 

COMMON/LOGIC/SEARCH, D I AG »  SYNC. LSS. WR ITE. ZERO .LEF T.CHCOL . ONE • 

* RLFLAG  .epflag 

LOGICAL  SEARCH, DI A  G, SYNC , WRI TE .LEF  T .CHCOL. CNE, RLFLAG, EPFLAG 
C 

C  BEGIN  DECODE  LOOPS  RETRIEVE  NEXT  CODE  WCRD  LENGTH  (L) 

C  -  •  -  -  - 

1000  CONTINUE 

1002  LEN8ITC0DERDI  l  .INDEX) 

CALL  GETL  I (  LENS  IT  ,  MCDE  .LBITS.L) 

IF(DIAG)  WR ITS (TERM , 1 0  03 )  LENB IT .MODE . LBITS, L 

1003  FORMAT  (21  6.Z12.  16) 

GO  TO  (1040*1200.1205,1190).  MODE 
STOP  1040 

1040  CONTINUE  -  *  - 

IF (LBI TS. EQ.CODERD( 3, INDEX))  GO  TO  1100 
C 

C  NO  MATCH;  ADVANCE  CODE  WORD  INDEX  VIA  DECODE  THREAD 
C 

IN0EX  =  C00ERD(2,  INDEX)  . 

IF  (INDEX.  GE. 8)  GO  TO  1190 

IF(CODER0(l, INDEX). Ed. LENBIT)  GO  TO  1040 

C  ....  -  •---•••  —  ■—  . . - . 

C  CODE  WORD  longer;  from  the  top 

c 

GO  TO  1002 
C 

C  MATCH  FOUND 
C 

1100  CONTINUE 

COELP=CDELP+L 

C 

C  NOT  AN  EOL 

C 

C 

C  FIND  Bi  AND  32 
C 

AO=CTELP 

-  IF  (OTELP.  EQ.l  )  A0=0 . 

POL=  COLOR— l 
C 

C  DETECT  31 
C 


1  =  AO  +1 

IF(I  .GT.3ELMAX)  GO  TO  65 
PELM1 =0 

• ■ IF(AO.EO.O)  GO  TO  50 

PELMl=I4B(OrBUF(I,OTREF),A0.1  ) 
50  CONTINUE 

PEL=  14  B(  QTBUF(  1  .DTREF  )  .  I  ,  1  ) 

IF  (PEL  .NE.PELM1  )  GO  TO  70 

60  CONTINUE  . .  .  .  . 

PELM1  =  PEL 
1  =  1*1 

-  IF  ( I  .L  E.P  EL  MAX)  GO  TO  50  -  ■  • 

65  CONTINUE 
B  1  =  1 


uuo  oou  uuu  uuu  yuo  Ooou  woo  oou j  j  uuu 


UNCLASSIFIED 


RL  OR  E2  J  DECIDE  WHICH 

100  CONTINUE 

IF (RLFLAG)  GO  TO  200 
GO  TO  300 
HO  CONTINUE 

IF  (RLFLAG )  GO  TO  300 
GO  TO  200 

HORIZONTAL  MODE  RL 

200  CONTINUE 

RLFLAG  =.  TRUE. 

EPFLAG*.FALSE.  -  ■ 

ENTRY=3 

SET  UP  TO  ADO  SACK  RUNLSNGTH  REDUCTION  IF  APPLICABLE 
L=s  0 

81  CNT=81 

IF(AO.EQ.O)  GO  TO  205 

L=MIN0  (Bl-AO+1,3)  -  •  - 

205  CONTINUE 

CALL  ONEI BM(ENTRY,  COLOR. STATE. L) 

GO  TO  (210.1160, 1190, 1200, 1205). STATE 
210  CONTINUE 

CHCOL=  .TRUE. 

GO  TO  1160 

VERTICAL  MODE  A1B1*0  EZ  • 

300  CONTINUE 

RUNLEN=B1 -OTELP 
RLFl  AG~. FALSE. 

EPFl.AG=.  FALSE. 

CHC0L=.TR  IE. 

GO  TO  (11  5-',  1145), COL  OR 

EP  000  OR  0001 

♦00  CONTINUE 

IF ( .NO T.EPFLAG)  GO  TO  500 

EP  FOLLOWING  EP(OOO);  NEXT  BIT  MUST  BE  A  *1* 

OR  AN  ERROR  CONDITION  HAS  BEEN  DETECTED 

CALL  GET_  I< l.MODE.LBITS.L) 

GO  TO  (41 0,405,405, 405) .MODE 
405  STOP  405 
410  CONTINUE 

CDELP=CDELP*L  . 

IF (L  B ITS)  405.420,480 
420  CONTINUE 

FOUR  CONSECUTIVE  ZEROES  DETECTED 

'  CDELP=  CDELP— 4 
GO  TO  1190 

VERTICAL  MODE  RIGHT  EP  A1B1=1 

480  CONTINUE  . . - 

EPFLAG=. FALSE. 

GO  TO  510 

500  CONTINUE  -  ' 

cPFLAG=»TRUE» 

510  CONTINUE  ..  ... 

RUNL  £N=B1  -OTELP+1 
RLFL AG =♦ FALSE. 

- -CHCOL*  .TRUE. . -•  . 

GOTO  (11  55, 1145), COLOR 

VERTICAL  MODE  LEFT  EM  A1B1  =  1 

600  CONTINUE 

EPFLAG=.  FALSE. 

RLFLAG  =.  FALSE. 

-  - RUM-  EN  *81  -0  TELP—l  - . . 

CH COL= .TRUE . 

GO  TO  (11  55,1145) .COLOR 


non  r>or»  or»r>  non  non  nnn  on 


UNCLASSIFIED 


ADD  BLACK  RUN  TO  OUTPUT  BUFFER 
145  CONTINUE 

IF  (R'JNLENll  190,1160,1147 
147  CONTINUE 

00  1150  I=*X,RUNLEN 

CALL  MI23(C0L0R-1* 0TB UF < 1 ,0TC00) ,GTELP,1  > 

0TcLP*0T5LP+l 

IF < 0TELP- 1 , ST.  PELMA X)  GO  TO  1100 
150  CONTINUE 
GO  TO  1160 

A00  WHITE  RUN  TO  OUTPUT  BUFFER  (BY  DEFAULT) 

155  CONT  INUE  ...  - .  -  - 

IF CRUNLEN.LT, 0)  GO  TO  1190 
OTcLP*  OTSLP  fRUNLEN 
IFCOTELP-l .GT.PELMAXj  GO  TO  1180 

RUN  A JOE □  TO  OUTPUT  -  INS  i  LENGTH  LESS  THAN  OR  EQUAL  TO  PEL, MAX  Cl) 
1160  CONTINUE 

STATUS*1  .  . . 

RETURN 

RUN  ADDED  UNTIL  PELMAX  EXCEEDED?  LINE  TOO  LONG  C2) 

1100  CONTINUE 

IF  CD IA  G)  WRITECTERM.1185)  C OTBUF C I , OTCCD ) , 1*1 » 6 0 > 

1185  F0RMATC6Z10) 

STATUS=2  - .  —  -  -  - . 

RETURN 

NO  MATCH  FOUND  IN  CODE  TABLE  <3>  . 

1190  CONTINUE  . 

STATUS*3 

RETURN 

EOL1  DETECTED  C4) 

1200  CONTINUE  "  " 

ST  ATUS— 4 

RETURN  . . 

EQL2  DETECTED  C5) 

1205  CONTINUE 
ST  AT  US *5 

RETURN  . 

END 

BLOCK  DATA  ...  -  -  . 

C 

IMPLICIT  INTEGERCA-Z) 

C***********************  FILE  DEFINITIONS  ******************** 

C 

C0MM0N/FILE3/TERW.LPFIL,PELFIL,0TFIL.ERFIL 

C 

COMMON /BJFF/PELBUFC 60, 2 ) , CDBUFC 2 40 ) ,0T8UF(60,2) , 

*  STFBUFC  240  )  ,  ST  AT  C  30  00 ) 

CO. MM  ON  /HUFF/CD  DE(3,92,2),C0DERDC3,9) 

CO  MM  ON /E  RAY /ERRORS  (  2  50  0  ) 

C***********m*********  LABELLED  COMMON  VARIABLES  ********************** 
C 

COMMON/!  V AR/PcLMAX, VfiES, EPHASE, CMPM AX, ERRMOD.L INMAX, K 
COMMON /P V  AR /IN_  NNO , OTLNNO , OTEL  W  « INELP , CDELP, OTELP, CDEL  W • 

*  COELCT, INELCT,TCDATA,TCDEL, ERRPNT »ERROFF*ERRLIM» 

*  .  ERR C NT • INLNCT • CON SEC ,LNNCBF,B1CNT , 

*  INCOD, I NREF , CTCOD, 0 TREF , STFBI T 
COMMON /I CHAR/DD, 1 1 , MM, TT,NN, YY 

-----  -  COMMON/-OGI  C/SEARCH.  D I  AG,  SYNC  ,LSS, WRITE,  ZERO,  LEFT  ,CHCOL  «ONE  , 
♦RLFLAG ,EPFLAG 

LOGICAL  SEARCH.DIAG, SYNC, LSS, WRITE, ZERO, LEFT, CHCCL, ONE 
LOGICAL  RLFLAG, EPFLAG 
C 

DATA  TER. M.LPFIL, PELF IL ,OTF IL, ERF IL/5, 6 , 1 .2 , 3/ 

DATA  DD,  I  I. MM.TT ,NN,YY/»  D*  ♦M».,M*,»T,.'N',«Y*/ 

DATA  PE_  M  AX,  VRES,  EPHASE,  C.MPMAX  .ERRMOD  ,LI  NMAX/1  728. 2,0, 96, *T*  ,30  0  0- 

DATA  K/2/  . . - . 

DATA  DIAG/. FALSE./ 

C 

DATA  CODEC  1 ,  l.l).CODE(2.  1,1),C0DEC3.  1,1)/  6,  70.Z0035/ 

T  UNCLASSIFIED 


nr 


UNCLASSIFIED 


DATA 

CODE (  1  . 

2 

l) 

CODEC  2. 

2 

1  ) 

CODE (3 • 

2 

1  )/ 

6, 

90 

Z000 7/ 

DATA 

CODE (  1  • 

3 

1  ) 

CODE (2. 

3 

1  ) 

CODEC  3 , 

3 

1)/ 

4, 

4 

ZQ007/ 

DATA 

CODEC  I , 

4 

1  ) 

CODE  C2 . 

4 

1  ) 

CODEC  3 . 

4 

1  )✓ 

4, 

5 

Z 0008/ 

DATA 

CD  D  E  (  1  , 

5 

1  ) 

CODEC  2, 

5 

1  ) 

CODE ( 3 , 

5 

1  )/ 

4, 

6 

Z 000B/ 

OAT  A 

CD  DEC  1  * 

6 

1  ) 

CODE  C  2, 

6 

1  ) 

CODEC  3, 

6 

1  )/ 

4, 

7 

ZOOOC/ 

DATA 

CODEC  1, 

7 

1  ) 

CODEC  2, 

7 

1  ) 

CODE  C3 , 

7 

1  )/ 

4, 

8 

Z000E/ 

DATA 

CODEC!  , 

a 

1  ) 

CODE ( 2 , 

8 

1  > 

CODEC  3, 

8 

l)/ 

4, 

9 

ZOOOF/ 

DATA 

CODEC  1 . 

9 

1  > 

CODE <2, 

9 

1  ) 

CODEC3, 

9 

1  )/ 

5, 

10 

ZOO 1 3/ 

DATA 

CODEC  1, 

10 

1  ) 

CODEC  2, 

10 

1  } 

CODE ( 3 , 

10 

1  )  / 

5, 

1 1 

Z001 4/ 

DATA 

CODEC  1  . 

n 

1  ) 

CODE  C  2, 

11 

1  ) 

C0CEC3, 

11 

1  )/ 

5* 

12 

20007/ 

DATA 

CODEC  !, 

12 

1  > 

CODEC  2. 

12 

1  ) 

CODE ( 3 , 

1  2 

1  )  / 

5. 

65 

ZOOQB/ 

DATA 

CODEC  1  * 

13 

1  ) 

CODE  C  2 • 

13 

1  > 

CODE C  3, 

13 

l  )/ 

6, 

1  4 

Z 0008/ 

DATA 

CODEC  1« 

14 

1  ) 

CODEC  2. 

14 

1  ) 

CCDEC3, 

14 

1  )/ 

6, 

15 

20003/ 

DATA 

CODEC  It 

15 

1  ) 

CODEC  2, 

15 

1  ) 

CODEC  3, 

15 

1  1  / 

6, 

16 

Z0034/ 

OATA 

CODEC  1 . 

16 

1  ) 

CODEC  2, 

16 

1  ) 

CODECS, 

16 

1  )/ 

6, 

17 

Z0035/ 

DATA 

CODEC  1* 

17 

1  ) 

CODE (2, 

1  7 

1  ) 

CODE  C  3 , 

17 

1  )  / 

6, 

1  8 

ZO 02  A/ 

DATA 

CODEC! , 

10 

1  ) 

CODEC  2, 

18 

1  ) 

CODE ( 3. 

18 

1  )/' 

6, 

19 

Z002B/ 

DATA 

CODEC  ! • 

19 

1  > 

CODE  C2, 

19 

1  ) 

C0DEC3  , 

19 

1  )/ 

7, 

20 

Z002  7/ 

DATA 

CODECI. 

20 

1  ) 

CODECS. 

20 

1  ) 

CODEC  3, 

20 

1)/ 

7, 

21 

ZOOOC/ 

DATA 

CODEC  !  • 

21 

1  ) 

C0DEC2, 

21 

1  ) 

CODEC  3 , 

21 

1  )/ 

7, 

22 

Z0008/ 

DATA 

CODEC  1» 

22 

1  ) 

CODEC  2. 

22 

1  > 

CODEC  3, 

22 

1  )  / 

7. 

23 

ZOOl 7/ 

DATA 

CODEC  X  * 

23 

1  ) 

CODE ( 2 , 

23 

1  > 

C00EC3, 

23 

1  )/ 

7, 

24 

20003/ 

DATA 

CODEC  I « 

24 

1  ) 

COOEC  2. 

24 

1  > 

CODECS  . 

24 

1  )  / 

7, 

25 

Z0004  / 

DATA 

CODE  Cl. 

25 

1  ) 

CODEC  2. 

25 

1  ) 

CODE ( 3. 

25 

1  )/ 

7, 

26 

Z  002  8/ 

OATA 

CODEC  1. 

26 

1  ) 

CODEC  2. 

26 

1  ) 

CODE  C  3  , 

26 

1  )/ 

7, 

27 

Z0028/ 

DATA 

CODEC  1. 

27 

1  ) 

CODEC  2. 

27 

1) 

CODEC  3. 

27 

1  )/ 

7, 

28 

Z0013/ 

DATA 

CODEC  1. 

28 

1  ) 

CODE ( 2 , 

28 

1  > 

CODE  C  3, 

28 

1  )/ 

7, 

29 

Z  0024/ 

DATA 

CODEC  1. 

29 

1  ) 

CODEC  2* 

29 

1) 

C00EC3. 

29 

1  )/ 

7, 

68 

ZOOl 8/ 

DATA 

CODEC  1 . 

30 

i  ) 

CODEC  2. 

30 

1  ) 

CODE ( 3. 

30 

1)/ 

8, 

31 

Z0002/ 

DATA 

CODEC  X. 

31 

1} 

CODE  C  2. 

31 

1  > 

CODE  C  3  . 

31 

1  )/ 

8. 

32 

Z0003/ 

DATA 

CODECI . 

32 

1  ) 

CODEC  2. 

32 

1  > 

CODEC  3, 

32 

l  )/ 

e. 

33 

ZOOl A/ 

DATA 

COOEC  1. 

33 

1  ) 

CODECS* 

33 

1  ) 

CODE (3. 

33 

1  )/ 

8> 

34 

ZO 018/ 

OATA 

CODEC  1  . 

34 

1  ) 

CODEC  2, 

34 

1  ) 

CODEC  3 , 

34 

1  1/ 

e. 

35 

ZOOl  2/ 

DATA 

CODECI  . 

35 

1  ) 

CODE (2. 

35 

1  ) 

CDDEC3, 

35 

1)/ 

e. 

36 

Z  001 3/ 

OATA 

CODEC  1. 

36 

1  ) 

COOEC  2. 

36 

1  ) 

CODE ( 3 , 

36 

1  )/ 

e. 

37 

ZOOl  4/ 

OATA 

CODECI. 

37 

1  ) 

CODE  C  2 • 

37 

1  ) 

CODEC3. 

37 

1  )/ 

e. 

38 

Z  001 5/ 

DATA 

CODEC  1. 

38 

1) 

CODE  C  2 • 

38 

1  ) 

CODE  C3  , 

38 

1  >/ 

8, 

39 

ZOO  16/ 

OATA 

COOEC X. 

39 

1  ) 

CODE (2. 

39 

1  ) 

CODEC  3, 

39 

l>/ 

8. 

40 

ZOOl 7/ 

DATA 

CODECI . 

40 

1  ) 

CODE  C  2 . 

40 

1  ) 

CODE  C  3 , 

40 

1  >/ 

e. 

41 

Z  002  8/ 

DATA 

COOEC  1. 

41 

1  ) 

CODE  C  2  . 

41 

1  ) 

CODE ( 3 , 

41 

1  )/ 

£• 

♦2 

Z0029/ 

OATA 

CODECI. 

42 

1  ) 

CODEC  2, 

42 

1  ) 

CODE  C  3, 

42 

1  )/ 

e. 

43 

2  0024/ 

DATA 

CODEC  1. 

43 

1  ) 

CODE  C  2  . 

43 

1  ) 

CODE  C3  » 

43 

1  )/ 

8, 

44 

Z002B/ 

DATA 

CODECI. 

44 

1  ) 

CODEC  2, 

44 

1  ) 

CODEC  3, 

44 

1  )/ 

8, 

45 

Z002C/ 

DATA 

CODEC  X, 

45 

1) 

CODE  C  2 . 

45 

1  ) 

C0DEC3, 

45 

1  )/ 

e. 

46 

Z002D/ 

DATA 

CODEC  1. 

46 

1  ) 

COOEC  2. 

46 

1  ) 

CODEC  3. 

46 

1  )/ 

8, 

47 

Z0004/ 

DATA 

CODECI. 

47 

1  ) 

CODE  C  2 . 

47 

1  ) 

CQDEC3, 

47 

1  )/ 

a. 

48 

Z  0005/ 

DATA 

COOEC  X. 

48 

1  ) 

CODEC  2, 

48 

1  ) 

C0DEC3, 

48 

1  >/ 

e. 

49 

ZOOOA/ 

DATA 

CODEC  X  . 

49 

1  ) 

CODE  C  2 , 

49 

1  ) 

C0DEC3, 

49 

1  )/ 

e. 

50 

20008/ 

DATA 

CODEC  X. 

50 

1) 

CODE  C  2 . 

50 

1  > 

CODE C3  , 

50 

1  )/ 

- 

51 

Z0052/ 

DATA 

CODEC  1. 

51 

1  ) 

CODEC  2. 

51 

1  ) 

CODE C  3  , 

51 

1  >/ 

e, 

52 

20053/ 

DATA 

CODECI* 

52 

1  ) 

CODE  C2» 

52 

1  ) 

CODECS, 

52 

1  )/ 

6, 

53 

Z  0054/ 

OATA 

CD  DEC  1 . 

53 

1  ) 

CODE  C  2, 

S3 

1) 

CQDEC3, 

S3 

1)/ 

6, 

54 

Z0055/ 

OATA 

CODEC  X . 

54 

1  ) 

CODE (2. 

54 

1  ) 

CODEC  3 , 

54 

1  )/ 

e. 

55 

Z  0024/ 

OATA 

CODECI. 

55 

1) 

CODEC  2, 

55 

1  ) 

CODE  C 3  , 

55 

1  )/ 

8, 

56 

Z0025/ 

OATA 

CODEC  1  . 

56 

1  ) 

CODEC  2. 

56 

1  ) 

COOEC  3, 

56 

1  )/ 

e. 

57 

20058/ 

OATA 

CODEC  X . 

S'' 

1) 

CODE  C2, 

57 

1  > 

CODE  ( 3 , 

57 

1  )/ 

e. 

58 

Z  005  9/ 

DATA 

CODEC  1. 

53 

1  ) 

CODEC  2. 

5  3 

1  ) 

COOEC  3, 

58 

1  >  / 

8, 

59 

Z  005 A/ 

DATA 

CODECI, 

59 

1  ) 

CODE ( 2 • 

59 

1  ) 

CODE  C  3 , 

59 

1  >/ 

8, 

60 

Z  0058/ 

DATA 

CODEC  X. 

60 

1  ) 

CODEC  2  , 

60 

1  ) 

C0DEC3  , 

60 

1  )/ 

8* 

61 

Z004 A / 

OATA 

CODECI. 

61 

1  > 

CODE (2, 

61 

1  ) 

CODEC  3 , 

61 

1)/ 

8, 

62 

Z004B/ 

DATA 

CODEC  1. 

62 

1  ) 

CODEC  2, 

62 

1  ) 

CODECS, 

62 

1  )/ 

8, 

63 

Z0032/ 

DATA 

CODEC  1. 

63 

1  ) 

CODEC  2. 

63 

1  ) 

CODE ( 3  , 

63 

1)  / 

8. 

64 

Z0033/ 

-OATA 

CODEC  1. 

64 

1  ) 

CODE  C2 . 

64 

1  > 

COOEC  3 , 

64 

1  >/ 

8, 

69 

Z  0034/ 

DATA 

CODEC  1. 

65 

1  ) 

CODEC  2, 

65 

1  ) 

CGDEC3, 

65 

1  )/ 

5, 

66 

ZOOl 8/ 

OATA 

CODECI , 

66 

1  ) 

CODEC  2. 

66 

1  > 

CODEC  3. 

66 

1  1/ 

5. 

67 

Z  001 2/ 

OATA 

CODEC  1, 

67 

1  ) 

CODE  C  2 , 

67 

1  1 

CODE C3  , 

67 

1  )/ 

6, 

2 

20017/ 

DATA 

CODEC  1  » 

63 

1  ) 

CODEC  2. 

68 

1  ) 

CODE ( 3 , 

68 

1)/ 

7, 

30 

Z0037/ 

DATA 

COOEC 1. 

69 

n 

C0DEC2, 

69 

1  ) 

CODE (3 , 

69 

1  >/ 

8, 

1 

ZOO  36/ 

DATA 

CODEC  1* 

70 

i  ) 

CODEC  2. 

70 

1  ) 

CODEC  3  , 

70 

1  )  / 

8, 

71 

Z003  7/ 

DATA 

CODECI. 

71 

i  ) 

CODE  C2 , 

71 

1  ) 

C0DEC3. 

71 

1  )/ 

8* 

72 

Z  0064/ 

-  OATA 

CODEC  X, 

72 

i ) 

CODEC  2. 

72 

1  ) 

CODE ( 3  r 

72 

1  >/ 

s. 

73 

Z0065/ 

DATA 

CODECI  , 

73 

i  > 

CODEC  2, 

73 

1  > 

CODEC  3. 

73 

1  )/ 

8, 

74 

Z  006  8/ 

DATA 

CODEC  1, 

74 

i  ) 

CODE ( 2 . 

74 

1  ) 

CODE  C  3  , 

74 

1  )/ 

8, 

75 

Z  0067/ 

DATA 

CODEC!, 

'75 

n 

CODEC  2. 

75 

1  ) 

CODE C  3 , 

75 

1)/ 

9, 

76 

ZOOCC/ 

OATA 

CODECI. 

76 

i  > 

CODE  C  2 . 

76 

1  ) 

CODE  C  3 , 

76 

1  )/ 

9, 

77 

ZOOCD/ 

DATA 

CODEC  1. 

77 

i  ) 

CODEC  2, 

77 

1  ) 

CODE (3. 

77 

1  )/ 

9, 

78 

Z0002/ 

OATA 

CODEC! . 

78 

: ) 

CODE  C  2. 

78 

1  ) 

CODEC  3 , 

78 

1  )/ 

9, 

79 

Z  0003/ 

DATA 

CODEC  1 , 

79 

i  ) 

CODECS, 

79 

1  ) 

CODE (3  , 

79 

1  )/ 

9, 

80 

ZOO  04/ 

DATA 

CODEC!  , 

80 

i  > 

CODEC  2, 

80 

1  ) 

CODEC  3, 

80 

I  )  / 

9. 

81 

Z00D5/ 

DATA 

COOEC  X , 

81 

i  > 

CODE C  2 , 

81 

1  > 

CODE  C  3 , 

81 

1  )/ 

9, 

82 

Z  0006/ 

DATA 

CODEC  X. 

82 

i  > 

CODEC  2, 

82 

1  ) 

CODECS, 

82 

1  )/ 

9, 

83 

Z  0007/ 

DATA 

COOEC I • 

83 

i  > 

CODEC  2 , 

83 

1  ) 

C0DEC3, 

83 

1  )/ 

9, 

84 

Z  0008/ 
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UNCLASSIFIED 


UNCLASSIFIED 


OATA  CD  DEI  1 «  64  « l 1 . C  ODE  I  2  <  84,1), 
DATA  CODEII,  85.  1  ) ,  CODE  (  2.  L5.1)< 
DATA  CO  D  E  (  1  .  86 . 1  )  ,  CODE  (  2  .  36.1), 
DATA  CDOEIl.  87,  1  )  .CODE  I  2.  87,1), 
DATA  CODE!  1  ,  88 , 1  )  ,  CODE  I  2  .  88,1). 
DATA  CDOEIl,  89, 1 ) , C ODE  I  2 ,  89.1), 
OATA  CDOEIl,  90,1  ).C00E<2,  90.1), 
OATA  CODE  II,  91,1),  CODE  (  2  ,  91.1), 
OATA  CDOEIl,  92,1  >. CODE!  2,  92.1), 
DATA  CODE I  1 ,  1,2),C0DEI2.  1,2), 

DATA  CD  DEI  1 ,  2,2).C0DE12,  2,2), 

OATA  C0DEI1,  3,2),  CODE  12,  3,2), 

OATA  CODE! 1 ,  4,2),C0DE(2,  4,2), 

OATA  CDOEIl.  5,2), CODE  I  2,  5,2), 

OATA  CODE!  1  ,  6,2),  CODE  12,  6,2), 

OATA  CD DE II,  7,2 ) .CODE! 2,  7,2), 

OATA  CD  DE!  1  •  8,2),CJD£(2,  8,2), 

OATA  CODE! 1 ,  9,2),C0DE!2,  9,2), 

OATA  CODE II,  10.2 ),C0DEI2.  10,2), 
OATA  CDOEIl,  11 .2 ) .C0DEI2,  11.2), 
OATA  CDOEIl,  12. 2), CODE!  2,  12,2), 
OATA  CDOEIl,  13,2  )  .C0DEI2,  13,2), 
OATA  CDOEIl,  14.2) .CODE! 2.  14,2), 
DATA  CDOEIl.  1  5 , 2  )  .  CODE  I  2 ,  15,2), 
OATA  CDOEIl,  16.2) .CODE! 2,  16,2), 
DATA  CDOEIl,  1 7,  2  )  .  CODE  I  2,  17,2), 
DATA  CODE  II,  18,2 ) .CODE  12 ,  18,2) 
DATA  CD  DEI  1,  19,2  )  .CODE!  2,  19.2) 
DATA  CDOEIl,  20 .2  ).  CODE!  2.  20,2), 
DATA  CDOEIl,  21 ,2) .CODE! 2,  21.2), 
OATA  CODE!  1  ,  22. 2  )  .CODE!  2,  22.2), 
DATA  CDOEIl,  23 .2 ) , C DDE  I  2,  23.2), 
DATA  CDOEIl,  24.  2  ).  CODE  I  2.  24.2), 
DATA  CODEIi.  25 .2  ).  CODE  I  2.  25,2), 
DATA  CDOEIl,  26.2  )  .CODE  I  2,  26.2) 
DATA  CDOEIl.  27.2  )  *  CODE!  2.  27.2), 
DATA  CODEII.  28. 2) .CODE  I  2 .  28.2) 
DATA  CODEII.  29. 2 ). CODE  I  2 ,  29,2) 
DATA  CODEII,  30 .2  )  .CODE!  2  »  30.2), 
DATA  CODEII,  31 , 2  )  .CODE  I  2.  31.2) 
DATA  CODEII.  32.2)  ,  C0DEI2.  32.2), 
OATA  CDOEIl,  33,2) .CODE! 2,  33,2) 
DATA  CODEII,  34, 2  ),  CODE  I  2,  34,2), 
DATA  CDOEIl.  35.2) .CODE  1 2.  35.2) 
DATA  CDOEIl.  36,  2  )  ,  CODE  (  2,  36,2) 
DATA  CODEII,  37, 2 ) , C ODE  I  2 .  37,2) 
DATA  CDOEIl.  38,  2)  ,  CODE  I  2  38 , 2) 

DATA  CODEII,  39 , 2 ) , CODE  I  2 ,  39,2) 
DATA  CDOEIl,  40, 2 ) ,C ODE  1 2 »  40,2) 
DATA  CODEII,  41 , 2  )  ,  CODE  I  2  ,  41,2) 
DATA  CODEII,  42 , 2 ) , CODE I  2 ,  42.2) 
DATA  CODE!  1,  43,2  )  .CODE  I  2.  43.2) 
OATA  CODEII.  44,2) , C0DEI2,  44,2) 
DATA  CDOEIl.  45, 2 ), CODE  I  2 ,  45.2) 
DATA  CODE  11.  46, 2 ), CODE I  2 ,  46, 2 > 
OATA  CODEII,  47,2) .C0DE12.  47,2) 
DATA  CODEII,  48,  2  ),  CODE  I  2,  48,2) 
DATA  CODEII,  49,2 ) .C0DEI2.  49,2) 
OATA  CODEII,  50, 2), CODE!  2,  50,2) 
DATA  CODEII,  51 ,2 ) , C0DEI2,  51,2) 
DATA  CODEII,  52,2) .CODE! 2,  52,2) 
DATA  CODEII,  53.  2  ),  CODE  I  2,  53,2) 
DATA  CODEII,  54,2 ) , C0DEI2  ,  54,2) 
OATA  CODEII,  55, 2), CODE!  2,  55,2) 
DATA  CODEII,  56 , 2 ) , CODE  I  2 ,  56,2) 
DATA  CODEII,  57,2 )  .CODE!  2.  57,2) 
DATA  CODEII.  58 , 2 ) , CODE ( 2 ,  58,2) 
DATA  CODEII.  59 , 2 ) , CODE  I  2 .  59.2) 
DATA  CODEII.  60,  2  ).  CODE!  2,  60.2) 
DATA  CODEII,  61 ,2 ), CODE  I  2 ,  61,2) 
-DATA  CODEII.  -62,  2  ),  CODE  I  2.  62,2) 
DATA  CODEIi.  63,2 ) .C0DEI2,  63,2) 
DATA  CODEII,  64.  2  ),  CODE  I  2  .  64,2) 
DATA  CODEII.  65,2 ) , C0DEI2.  65.2) 
DATA  CODEII,  6b, 2) .CODE  I  2 .  66,2) 
DATA  CODEIi.  67.  2  ),  CODE  I  2 ,  67,2) 
DATA  CODEII,  68 ,2 ), CODE  12 ,  68,2) 
DATA  CODEII,  69. 2  ),  CODE  I  2  ,  69,2) 
DATA  CODEII,  70 ,2 ), CODE! 2,  70.2) 
DATA  CODEII,  71 , 2) . CODE  I  2 ,  71,2) 
DATA  CODEIi,  72, 2  >,  CODE!  2,  72,2) 
DATA  CODEII,  73,2 ) .CODE  I  2  .  73,2) 
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CODE ( 3 ,  84,1)/  9,  85,20009/ 
CC0EI3,  85,1)/  9,  86.ZOOD4/ 
CODE  1 3 ,  86,1  )/  9,  87.Z00D6/ 
CCDEI3,  87.1)/  9.  88.Z0098/ 
CODE ( 3 ,  88,1)/  9»  89.Z0099/ 
CODE < 3 ,  89,1)/  9.  91.Z009A/ 
CODE! 3 ,  90,1)/  6,  13.Z0018/ 
C0DEI3,  91.1)/  9,  92.Z009B/ 
CODE!  3 .  92.D/13,  93.Z0002/ 
CODE  I  3 ,  1 , 2 ) /  1  0.  65, Z  0037/ 

CODE  13 ,  2,2)/  3.  6.Z0002/ 

CODE 13,  3.2)/  2.  4,20003/ 

CODE  13,  4.2)/  2*  5,20002/ 

CODE! 3 ,  5.2)/  3.  2.Z0003/ 

CODE! 3,  6.2)/  4.  7.Z0003/ 

iCCDE 1 3,  7,2)/  4,  8.Z0002/ 

C00EI3,  8.2)/  5,  9 , Z  0003/ 

.CODE (3 ,  9.2)/  6.  10,20005/ 

CODE! 3 ,  10,2)/  €,  11.Z0004/ 
CODE  13 ,  11,2)/  7,  12.Z0004/ 
CODE ( 3 ,  12,2)/  7,  13.Z0005/ 
CODE  1 3,  13,2)/  7,  14.Z0007/ 

C00EI3,  14.2)/  8,  15, Z0004 / 
CODE ( 3 ,  15,2)/  8,  16, ZOO. 1/ 

•  CC0EI3,  16,2)/  9,  17, Z001 8/ 

.  CODE I  3 .  17,2) /1C,  18.Z0017/ 
i  CODE I  3 ,  18,2)/1C,  1 9, Z  001 8/ 
■CODE (3 ,  1 9 ,2) /I 0,  1.20008/ 

CODE! 3,  20,2 ) /I 1,  21.Z0067/ 

'  CODE 13 .  21 ,2)/ll,  22.Z0068/ 
C0DEI3,  22, 2 ) / 1 1 ,  23.Z006C/ 

>  CODE  13 ,  23,2 ) /I 1,  24.Z0037/ 
i  CDDEI 3.  24,2 ) /I 1 ,  25.Z002B/ 
i  CODE! 3 ,  25, 2 ) / 1 1 ,  26.Z0017/ 
iCCDEt  3,  26 , 2 ) /I 1 •  27.Z0018/ 
i  CODE I  3*  27,21/12,  28.Z00CA/ 
i  CODE  13 ,  28,2 )/12,  29.Z00C8/ 
i  CODE! 3.  29*2)/12*  30.Z00CC/ 

C0DEI3,  -30,21/12,  31.Z00CD/ 

,  CODE I  3 ,  31,2) /I 2,  32.Z0068/ 
i  CODE  1 3 ,  32, 2 ) / 1  £ ,  33.Z0069/ 
iCODE 13 ,  33 , 2 ) /I 2 •  34.Z006A/ 
i  CODE! 3,  34, 2 ) / 1 2 .  35.Z006B/ 
i  CODE (3 .  35.2>/12.  36.ZO0D2/ 
i  CODE  I  3 ,  36, 2 ) /I 2,  37.Z00D3/ 

>  CODE I  3 ,  37,21/12,  38.ZO0D4/ 
.CODE! 3, -38,2) /12,  39.ZO0D5/ 

>  CODE 13.  39,21/12,  40.Z00D6/ 
•CODE 13 .  40.21/12,  41.Z0007/ 
i  CODE 13.  41.21/12,  42.Z0O6C/ 

>  CODE  13.  42,21/12,  43.Z006D/ 
•C0DE13.  43,21/12.  44.Z00DA/ 
i  CODE  13,  44,21/12,  45.Z00DB/ 
•CODE ( 3 .  45*21/12.  46.Z0054/ 

>  COOE! 3.  46 • 21/12.  47.Z0055/ 

,  CODE  I  3 ,  47,21/12.  48.Z0056/ 

■  CODE! 3,  48.21/12,  49.Z0057/ 

» CODE 13.  49.21/12,  50.Z0064/ 
.C0DEI3.  50,21/12,  51.Z0065/ 
i  CODE I  3,  51.21/12,  52.Z0052/ 

,  CODE (3,  52,21/12,  53.Z0053/ 

,  CODE 13,  53.21/12,  54.Z0024/ 
>C0D£(3.  54,21/12,  55.Z0037/ 

>  CODE I  3 ,  55,2) /1 2,  56.Z0038/ 

•  COOE I  3 ,  56,21/12,  57.Z0027/ 
.CODE  (3.  57 .2  )  /1 2 ,  58.Z0028/ 
i  CODE  I  3 ,  58,21/12,  59.Z0058/ 
.CODE  I  3  t  59,21/12,  60.Z0059/ 
.CODE! 3,  60,21/12.  61.Z0028/ 

,  COOE ( 3 ♦  61,21/12,  62.Z002C/ 
.CODE! 3 ,  62,21/12.  63.Z005A/ 

,  COOE 13,  63,21/12.  64.Z0066/ 
,CQDE 13 «  64,21/12.  66.Z0067/ 
,CO0E(3,  65.21/1C.  20.Z000F/ 

,  COOE 13,  66.2  1/12,  67.Z00C8/ 
■CODE! 3 ,  67,21/12.  68.ZOOC9/ 

,  COOE I  3 ,  68.21/12,  69.ZOOS8/ 
.CODE  13,  69,21/12,  70.Z0033/ 

,  CODE ( 3  »  70,21/12,  71.Z0034/ 
,C00E(3 ,  71,21/12.  72.Z0035/ 
.CC0EI3,  72.21/13.  73.Z006C/ 
.C0DEI3.  73.21/12,  74.Z006D/ 

UNCLASSIFIED 


.  u.fj'p.jwmpiun .  mini*.  I  .LJI.I  W  >11.' 


V 


Cs, 

DATA 

C3DE(  1, 

74,2  ) 

, CODE  t  2 , 

74,2) .CODE  t  3. 

74,2) /I 3. 

75,2004  A/ 

?■ 

DATA 

COOEU  . 

75.2  ) 

, CODEt  2, 

75, 2  ), CODEt  3, 

75,  2  )  / 1  3, 

76,20048/ 

* 

DATA 

CODEt 1  . 

76,2) 

•  CODE  t  2, 

76,2) , COOE  t  3 , 

76,2)/12, 

77,20040/ 

DATA 

COOEU  . 

77,2  ) 

. CODEt  2 , 

77,2  ).C0DE(3, 

77,2)/13, 

78,20040/ 

OATA 

CODEt 1 , 

78.2) 

.CODEt  2, 

78,2) , CODE  t3. 

78,2 )/13, 

79,20072/ 

s 

DATA 

CODEt  1. 

79,2  ) 

•CODE ( 2, 

79.2)  i  CODE ( 3 , 

79,2 )/13, 

80 , Z  0073 / 

* 

OATA 

CODEt 1 . 

30  .2  ) 

.CODE ( 2 , 

80.2  >. COOEU, 

80,2)/12, 

81  , Z0074/ 

*1 

DATA 

CODEt  1, 

81,2) 

.CODE  t  2  , 

81,2) .CODE  t  3 , 

81 , 2  )  / 1  3  « 

82  ,  ZOO 75/ 

DATA 

CODEt 1 . 

32 ,2  ) 

, CODE  t  2 , 

82,2), COOE  t  3 , 

82,2) /13» 

83,20076/ 

1. 

DATA 

CODEt 1. 

8  j»2  ) 

•  CODE  t  2, 

83,2  )  .COOEU  , 

83,2)/13, 

84,20077/ 

f{ 

DATA 

CODEt  1, 

84,2  ) 

.CODEt  2, 

84.2 ) .CODEt  3, 

34,2>/12. 

85,20052/ 

DATA 

CODEt 1 . 

85,2  ) 

.CODEt  2, 

85.2  ),CGDEt3, 

85 . 2 ) / 12, 

86,20053/ 

DATA 

CODEt  1. 

36, 2  ) 

.CODEt  2, 

86,2) .CODE  t  3 , 

86,2) /13. 

87  *  Z  0054/ 

•> 

DATA 

CODEt  1  . 

37,2) 

.CODEt  2, 

37.2 ) , CODEt  3, 

37,2)/  13, 

88,20055/ 

- 

DATA 

CODEt  1. 

38,2) 

•  CODEt  2, 

88.2)  ,CODE<3  . 

68 , 2  )  / 13  , 

89 , Z0Q5A/ 

OATA 

CODEt  1  . 

89,2  ) 

•  CODE ( 2 , 

89,2), CODE ( 3, 

89,2)/13, 

9G.Z005B/ 

£ 

OATA 

CODEt 1. 

90,2) 

.CODE  t  2  , 

90,2),  COOE  U. 

90,2 )/13. 

91, Z0064/ 

OATA 

CODEt  1, 

91,2) 

, CODE  t  2, 

91,2), CODEt  3 , 

91 ,2) /13» 

92 .Z0065/ 

» 

DATA 

CODEt  1  . 

92,2  ) 

, CODEt 2. 

92.2  ). COOEU, 

92,2 )/  13, 

93, Z0003/ 

0  AT  A 

CODERDt  1 

,1  ).  C 

ODERDt  2.1 

) .CODERD (3.1)/ 

1  . 

2,21/ 

C 

0 


D  UA 
DATA 
DATA 
DATA 
DATA 

END 


C3  D  ER  D  t 1»3)»C0DERD(2 
CODERDU  ,4).  CODERD (  2 
CODERDU  » 5  )  *  CODERD  <  2 
CODERDt  1.6),C0DERD(  2 
CODERDU  ,7)  .CODERD <2 


3)  . CODERDU  .3 

4 )  . CO  DERD (3.4 

5) , CODERDU, 5 

6)  .CODERDU. 6 

7 )  » CODERD (3,7 


ENO  OF  DCEC  UPRINT  PROGRAM 


/  3.4,21/ 

/  3.5,20/ 

/  4.6,21/ 

/  13.7,22/ 

/  13.8, Z3/ 


LINES  PRINTED*  1421 


UNCLASSIFIED 


$ 
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:* 
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appendix  h 
program  flow  chart 

FOR  XEROX  ALGORITHM 


'/ECO\ 


itos/vr=is ' 

/  t 

l . .  . 


|  i_e«c  ccR  j 
;  £Ci_ 

l  S;r.e/-&rr 


toe-S  4  m>7'~5- 

£j/>y£"  ip 
MPC'CiSte 


KJO 


i&jn-ur  i.Wfir  6.  rfeiXAX 

&jrPor  LtfjS  Ttt  U?t46,  <3£. 

MArztf  P0o^  itj  case  -rm-^r 


feE’PA -r^er  £-^<l 

FftSC  M  4 


'  ilwroiN 


UNCLASSIFIED 


START  OF  DCEC  UPRINT  PROGRAM  DSNAME=0003 1 .XEROX .FORT 

C  PROGRAM  XEROX  ' 

IMPUIC  IT'iTTTcGER  {  A-Z  ) 

REAL  CF3  »CF 4  « ERR ATE 

C*******  LABELED  COMMON  /G32BIT/  ******* 

C 

COMMON  /G  32  31 T /MASK I  32 ) .COMA SK( 32 > ,L I B I T * 3 2) .L 2BI T ( 32 > 

INTEGER  4 XSK, COMASK, LIBIT, LZBIT 
C 

COMMON /BUFF/PREBJF ,PELBUF<  60, 2) . CDBUF ( 240) , 

*  OT8JF*60.2 ).STFBUF*240  ).  STAT<3000) 

CO MMQN/HUFF /CO DEC  3.92,2)  *CODERD(  3.93  >  .PREDCTd  28  ) 

COMM CN/ERAY /ERRORS C  2500 ) 

C***********************  FILE  DEFINITIONS  ******************** 

c 

COMMON/FI LSS/TERM, LPFI L, PELFIL, OTF IL . ERF IL 

c*********************  LABELLED  COMMON  VARIABLES  ********************** 

C 

COMMON /I  VAR/PS,.  MAX  ,  VRES  ,  EPHASE  ,  CMPM  AX,  ERRMOD.L  INMAX,  K 
COMMON/PVAR/INlNNO,  OTLNNG.QTELW, INELP. CDFl.P.OTELP.CDELW, 

*  CDELCT, INELCT  »TCDATA«TCDEL ,ERR hnT, ERRCFF, EHRL1 M, 

*  ERRCNT , I NL  NCT , CON SEC .LNN09F , BI CNT , 

*  I NC 00 , 1  NREF , OTCOD.CT REF,STFBIT 
COMMON/ 1 C  HAR/ OD,  II, MM, TT,NN, YY 

COMM ON/LOG I C/ SEARCH, DI AG, SYNC ,LSS, WRITE, ZERO. L EFT, CHCOL, ONE 
LOGICAL  SEARCH, 01 AG, SYNC ,  WRI TE , LEF T , CHCOL , ONE 
C 

C  READ  INPUT  PARAMETERS 
90  MR ITECTERM.100) 

100  FORMAT (• SPARAMETERS  2  INPUT*®!),  OR  DEFAULT  1*0) ?' ) 

READ(TERM,I10,tRR=90)  INSW 
110  FORMAT  (A1  ) 

IF  (INSW. EG. DD)  GO  TO  315 
IF  ( INSW.NE.II )  GO  TO  90 
C 

C  REAO  DIAGNOSTIC  SWITCH 
C 

114  WRIT=<TERM,11S)  -  • 

115  FORMAT  (•  *DIAGNOSTIC  PRINTOUT?  (Y  6R  N)  S  •) 

RE  AD ( T  ER  M  ,  1 10  )  INSW 

lFdNSW.EO.YY)  GO  TO  116 
IFdNSW.EQ.NN)  GC  TO  120 
GO  TO  114 

116  CONTINUE 

DI  AG®.  TRUE. 

C  ...  - - -  - 

C  REAO  MAXIMUM  NUMBER  OF  a ELS  PER  LINE 
C 

120  CONTINUE 

WRITE* TERM, 130) 

130  FORMAT**  *EN TER  MAXIMUM  NUMBER  OF  PELS  PER  LINE!  •) 

READ  *T  ER.M  ,140,  ERR=1  20  )  PeLMAX 
140  FO RMAT (14) 

—  -  IF  (PELMAX  .GE. I  .ANO.PELMAX.LE.  1  728)  GO  TO  160 

WRITE* TERM, 150)  PELMAX 
150  FO  RMAT ( *  ONUMBER  OUT  OF  RANGE  *=*,I6,*)*> 

GO  TO  120 
C 

C  READ  VERTICAL  SAMPLING 
C 

160  CONTINUE 

WRITE (TERM, 170)  ■  . - . 

170  FORMAT* * SENTER  VERTICAL  SAMPLINGS  •) 

REAO(TERM,180,ERR=160)  VRES 

100  FORMAT  (12)  -  ~ 

IF (VRES.GE.l .ANO.VRES.LE. 10)  GO  TO  190 
WRITE {TERM, 150 )  VRES 
GO  TO  160 
C 

C  REAO  PARAMETER  K  . -  -  - 


„  JCT>'3^  yy'T’'«v^Jil 


UNCLASSIFIED 


200  CONTINUE 

WRITS! TERM *210 ) 

210  FORMAT!*  *ENTER  ERROR  PATTERN  PHASE:  •) 
READ!TERM,220,ERR=200 )  EPHASE 
220  FORMAT ! 1 1  ) 

1F(E=>HAS£.GE,0. AND. EPHASE. LE. 3)  GO  TC  240 
WR ITE ( TER  M , I  50 )  EPHASE 
GO  TO  200 
C 

C  READ  MINIMUM  COMPRESSED  LINE  LENGTH 
C 

240  CONTINUE 

WR  ITE!  TERM,  250) 

2S0  FORMAT !•  SENTSR  MINIMUM  COMPRESSED  LINE  LENGTH:  •) 

RE AD! TERM  *  1 40  *E3R  =  24  0)  CMPMAX 
IF!CMPMAX .GE.O.AND. CMPMA  X • LE .1  72  8)  GC  TO  220 
WRITE! TERM, ISO )  CMPMAX 
GO  TO  240 
C 

C  READ  NUMBER  CF  SCAN  LINES  TO  BE  PROCESSED 
320  CONTINUE 

WRITE ! TERM, 330 ) 

330  FORMAT !• SNUMSER  OF  SCAN  LINES  TC  BE  FRCCESSEO=?  •) 

READ !TERM  * l 40  «  £RR=320 )  LINMAX 
IF (LINMAX.GE.1 .AND. LINMAX.LE. 3000)  GC  TO  280 
WRITE! TERM, 150)  LINMAX 
GO  TO  320 
C 

C  READ  ERROR  MODE 
C 

280  CONTINUE 

WRITE! TERM, 290 ) 

290  FORMAT! • TERROR  MODE=?  i M= MANUAL  *  T=T  APE  »N=NQ  ERRORS)*) 
READiTERM ,1 10,ERR=280)  ERRMOO 
IF !ERRMOD.EQ.MM)  GO  TO  300 
IF  !ERRM30.EQ.TT  )  GO  TO  315 
IF {ERR MOD .NE.NN)  GO  TO  280 
GO  TO  350 

C  •  . 

C  READ  ERROR  LOCATIONS 
C 

300  CONTINUE 
ERRLIM=I 

305  READ ITERM. 140)  ERRORS { ERRLIM ) 

IF {ERR ORS ( ERRL I M)«EQ«9999)  GO  TO  310 
ERRL  IM=ERRL  IM  +  1 
GO  TO  305 
310  CONTINUE 

ERRL IM=ERRL IM— 1 
GO  TO  350 
C 

C  READ  ERROR  TAPE  FILE  AND  OPEN  .  . 

C 

315  CONTINUE 
ERRLI M=l 

READ ( ERF I L , 31  8 , END=  317)  ERRO  RS ( ERRLI M  ) 

ERRLI M=ERRL IM+1 

316  RE  AD! ERF IL ,318, END=  31 7 )  ERRORS! ERRLI M ) 

318  FORMAT  { I  1 6 ) 

ERRORS !ERRLIM)=ERR0RS! ERRLIM) TERRORS! ERRLI M-l ) 

ERRL  IM=ERRL  IMF! 

GO  TO  31 6  .... 

317  ERRLIM=SRRLIM-1  • 

C 

350  CONTINUE 
C 

360  CONTINUE 

C  WRITE  INPUT  PARAMETERS 
C 

WRITE! L3F I L»  400)  PELMAX,VRES,K» EPHASE, CMPMAX, LINMAX 
400  FORMAT {*1  INPUT  PARAMETERS: »/ 

*  *  OMAXI MUM  NUMBER  OF  PELS  PER  LINE=*,I6/ 

*  *  0 VERTICAL  SAMPLING:  N=*,I4/ 

*  • 0  PARAMETER  K  =*,I4/ 

*  *  OERROR  PATTERN  PHASE  =*,14/ 

*  »0  MINI  MUM  COMPRESSED  LINE  LENGTH  =*,I4,»  SITS*/ 

*  • 0 NUMBER  OF  SCAN  LINES  TO  BE  PROCESSED  =*,I6) 

IF { ERR MOD  »EQ«NN )  WR ITE ( LPFIL , 41 0  )  - 

410  FORMAT  ! *  ONO  ERRORS  INSERTED*) 

IF ( ERR  MOD. EQ. MM)  WRI TE ! TER M , 1 40 )  { ERRORS ( I ), I =1  ,  ERRLI M) 
IF (ERR MOD .EQ.TT )  WRITE (TERM, 420 )  ERRLIM 


N-2 


UNCLASSIFIED 


UNCLASSI  FI  ED 


42  3  FO RM AT ( I  I  2 • '  ERRORS  OBTAINED  FROM  ERROR  T APE • ) 

************ *********  BEGIN  PROGRAM  *********************************** 

C 

C  INITIALI  ZE 
C 

TCDeL=0 
TCDATA  sO 
ER RPNT  =  1 
ERRCNT  =0 
INLNCT  =  0 

ER  ROFF  =EP  HASc* 1 0  24 
CDELC  T  =32 
OTELP=  I 
CDELP=02+1 
CONSEC=i 
IN  fi£F= I 
INCODs 2 
OTREF=l 
OT  COJs  2 
STFBIT=0 
81  CNT=0 
PR  EB  UF  =0 
C 

DO  800  1=1.240 
STFBUF ( I ) =0 

coeuFt i )  =  o 

600  CONTINUE 

DO  3oO  1=1,60 
OT3UF(  I ,  OTREF  )  =0 
OTBUFt I , 3TC0D )=0 
PEL9JF  (I . INREF )=0 
PEL9UFII < I NCOD ) =0 
850  CONTINUE 

S£ARCH=.TRUE. 

SYNC  =  .  FALSE. 

WRIT£= .FALSE. 

C 

C  SEARCH  MODE:  LOOK  FOR  E0L1  9IT-BY-B1T 

c 

900  CONTINUE 

CALL  GETLXt 1 2 . MODE  .  L8 I TS . L ) 

GO  TO  (910.930,910.520 ) .MODE 
STOP  900 
310  CONTINUE 
C 

C  E0L1  NOT  FOUND;  ADVANCE  POINTER  AND  TRY  AGAIN 
C 

CDELP= COELP+ 1 
GO  TO  900 
920  CONTINUE 
STOP  920 
930  CONTINUE 
C 

C  E0L1  FOUND 

C  -  . 

SEARCHs.  FALSE. 

CDELP=CDELP*L 
IF(WRITE)  GO  TO  935 
WRITE= .TRUE. 

GQ  TO  960 
935  CONTINUE 
C 

C  SET  OUTPUT  DECODE  LINE  TO  0  AND  WRITE  OUT  . 

DO  950  1=1,60 
OT 8UF ( I «  OTCOD)=0 

950  CONTINUE  '  '  ' 

WRITE(OTFIL)  OTLNNQ.PSLMAX, (OTBUFt I.OTCOD) ,1=1.60) 

0TLNN0=LNN08F  .... 

960  CONTINUE 

IF (MODE-2 >965.1000, 900 

965  STOP  9  65  . . ~  ■  - . . 

1000  CONTINUE 
C 

C  PERFORM  ONH-D I MENS IONA-  DECODE  OF  A  COMPLETE  LINE 
C  FIRST, SET  OUTPUT  BUFFER  TO  WHITE 
C  (ONLY  BLACK  RUNS  WILL  BE  INSERTED) 

C 

DO  1010  I =1 ,60 
OT8UF(  I.OTCOD  )  =  0 
1010  CONTINUE 
C 

INDEX=3 


N-3 


UNCLASSIFIED 


UUU  Oouuouu  V  <J  <D  UUU  Uuu  U  UoUuU  U  'JUU  U  Uij  o 


K^WViVUfi*  ? 


UNCLASSIFIED 


COLOR=  1 
0T5LP.-1 
C 

1020  CONTINUE 

CALL  C  NEXOX ( INDEX  «  COLOR ♦ ST  AT US  »L  ) 

GO  TO  (1 030 .1070,1  070 .1 035,1 040}  .STATUS 
C  1  2  3  4  5 

STOP  1000 

SUN  AODECJ  CHECK  LENGTH  OF  OUTPUT  LINE 

1030  CONTINUE 
ONE=.TRU£. 

IFCOTELP- l -PEL MAX )  1031,3032,1 050 

1031  CONTINUE 

IF(CHC0L)C0L0R=M0D(C0L0RF2,2 )+l 
IN  DEX=  3 
GO  TO  1020 
3000  CONTINUE 

PERFOR4  TWO-DIMENSIONAL  DECODE 


FIRST,  SET  OUTPUT  BUFFER  TO  WHITE 
(ONLY  3LACK  RUNS  WILL  BE  INSERTED) 

DO  3010  1=1.60 
OT3UF< I ,GTCQD) =0 
3010  CONTINUE 

I NOE  X= 1 
COLOR= 1 
OT£LP=l 

0  CONTINUE 

CALL  TWOXOX (INDEX, COLOR, STATUS. L I 
GO  TO  (3030,1070,1070,1035,1 040) .STATUS 
1  2  3  4  5 

STOP  3  00  0 

RUN  ADDED!  LOOK  FOR  NEXT  RUN 


3030 

3031 


CONTINUE 
CNE=.  FALSE, 

IF (OTELP  — 1  — PELMAX ) 
CO  NT  IN  UE 
IN0£X=1 
GO  TO  30  20 


3031 ,3032 ,1050 


LINELENGTH  =  PELMAX;  FIRST  CHECK  FCR  E0L2 


032  CONTINUE 

CALL  GETLX ( 5 , MODE. LB IT S  »L ) 

GO  TO  (3034,1050, 1050, 1050) .MODE 
034  CONTINUE  ••  .  -  - 

IF(_l3ITS« EQ  »CODERD(  3,92)  )  GO  TO  1059 

NOT  AN  EOL2 

LINE  LSNGTH=PELMAX;  CHECK  FOR  FILL  AND  LCOK  FOR  EOL 1 

032  CONTINUE 
2E  RC  =—  1 
1033  CONTINUE 

ZER0=2ER0+1 

CALL  GETL  X(  1,MG0E,L9ITS,L) 


GO  TO  (1034, 1050, 1050, 1050), MOOE 

-  CHECK  FOR  FILL  •  .... 

034  CONTINUE 

CD  ELP=  CDEl.P  H 
IF  (L3ITS.EO.0)  GO  TO  1033 
IF  (/.  ERO»_  E»  10  )  GO  TO  1070 

E0L1  r  JUNO 


MODE  --  2 
GO  7 


10  6  0 


UNC 1.  A  SSI  TIED 


UNCLASSIFIED 


C 

C  PREMAT  JRE  EOL  DETECTED 

C 

C 

C  EOL 1  DETECTED 
C 

1035  CONTINUE 

CDELP=  CDELP+L 
STATUS=4 

IF  IOTELP.  LE  »  5)  CONSEC=CCNSEC+l 
IF ( CONSEC-?  >1080,1000,  2000 

C  EOL 2  DETECTED 
C 

1040  CONTINUE 

CDELP*  CDELP  +L 
STATUSES 
C 

GO  TO  1030 
C 

C  PROBLEMS .PROBLEMS 
C 

1050  STOP  1050 

c 

C  LINE  LENGTH  CORRECT.  EOL  DETECTED  PROPERLY;  WRITE  OUTPUT  LINE 
C 

1 059  M00£=3 
CDELP=COELP*L 

1060  CONTINUE 

WRITE! OTF I L ) OTLNNO , PEL MAX, (OTBUF (I, OT COD), 1=1.60) 

CTLNN0=LNN03F  -  - 

CONSEC— 1 

IF ( ONE  )  S YNC=. TRUE « 

temp=otref 

OTREF=OTCOD 

OTCOD=TEMP 

I F (MODE.EQ.  2 )  GO  TO  1000 
GO  TO  3000 

C  ••  ...»  ...  - . - . 

C  LINS  TOO  LONG  OR  NO  MATCH 
C 

1070  CONTINUE 

WRITE*. FALSE. 

/*• 

C  LINE  SHORT 
C 

1080  CONTINUE  -  -  -  -  •  - 

IF  (.NOT.  SYNC)  GO  TO  1090 
C 

C  WRITE  LAST  GOOD  LINE 
C 

WRITE! OTF IL)  OTLNN3 .PELMAX. t OTBUF! I .CTREF) .1=1 ,60) 

SYNC=.  FALSE. 

GO  TO  1110 

1090  CONTINUE  . - . . . . . - . 

C 

C  WRITE  A  WHITE  LINE 

00  1100  1=1,  60 
1100  OT  8UF! I «  QTCOD )=0 

WRITE! OTFIL)  OTLNNO .PELMAX, ! OTBUF! I »  OT  COD  >  » 1=1,60) 

1110  0TLNN0=LNN03F 

IF  ISTATU3.EQ.4)  GO  TO  1000  - - 

SEARCH*. TRUE. 

GO  TO  900 

C  - 

C  END  OF  MESSAGE 

C  ......... 

2000  CONTINUE 

WRITE!L=»FIL,2010)  CONSEC 

-  '5010  FORMAT  !*  OEND  OF  MESSAGE  DETECTED  {'*12,'  EOL  *  •  S  )  •  ) 

C 

C  REPORT  COMPRESSION  FACTOR.  ERROR  SENSITIVITY  FACTOR, BIT  ERROR  RATE 
C 

ERRATE=FLOAT! 3RRCNT ) /FLOAT ! TCDEL ) 

WRITE! LPFIL. 2020 )  TCDEL. TCDATA. INLNCT , ERRATE 
2020  FORMAT!  *0T0  TAL  NUMBER  OF  CODED  BITS  =  ‘,18/ 

*  *  0T0 TAL  NUMBER  OF  CODED  DATA  BITS  =  *.16/ 

*  • OTO TAL  NUMBER  OF  INPUT  LINES  PROCESSED  =  *,18/ 

*  *  08 1 T  ERROR  RATE  =  *,G14.6) 

C 

CALL  STATS! STAT. INLNCT. DIAG) 


N-S 


UNCLASSIFIED 


CFSaFLOAK’ELMAXMFLCATt  INLNCT)/FLOAT(TCDEL) 
CF4=FLCAT(PSLMAX)*FL0AT( INLNCT  >/FLOAT (TCDATA) 


UNCLASSIFIED 


c 

WR  IT  E  (  L3  F  IL  »  20  30  )  CF3.CF4 

2030  FORMAT (• OCQMPRESSI ON  FACTOR  FOR  G3  MACHINE  ( CF 3  )  =*,F8.4/ 
*  • OCQMPRE  SSI  ON  FACTOR  FOR  G4  MACHINE  ( CF4 )  =»,F8.4> 

C 

CALL  ERR  ME. *5  <  PELOUF  «  OTcJUF  •  PEL  MAX  .VRES.ERRCNT) 

C 

ST  CP 
END 

SU8RQUT INE  GETLX(LB ITS.MCOE • WRD.L) 

IMPLICIT  INTEGER! A—Z) 

C*******  LAB  E_  ED  COMMON  /G32BIT/  ******* 

C  • 

COMMON  /G32BIT/MASK(32  )  .COMASK  (32)  .LIBIT(32).L2BIT(32) 
INTEGER  MASK, COMASK, LIBIT. L2BIT 


COMMON /BUFF /PR EBUF ,PELBUF{ 60 , 2 ) ,CD9UF(240) , 

*  OTBUF( 60,2 ), STFBUF (240),  STAT(3000) 

COMMON/HUFF/CDDE(3 ,92.2) .CCDERD ( 3 .93 ) , FREDCT <1 2  8  ) 

CGMM ON /cR AY /ERRORS ( 2500) 

C*********************  LABELLED  COMMON  VARIABLES  ********************** 
C 

COMMQN/I V AR/PELM AX . VRES, EPHASE. CMPM AX, ERRMOQ.L INMAX, K 
COMMON /3 VAR /I NLNN3  .OTLNNO.Oi'  ELW,  INELP.CDELP,  OT  ELP,  CDEL*  , 

*  CDELCT,  INELCT.  CD  ATA  ,  TCDEL  ,ERR  PNT  ,  E  RRCFF  .ERRLI  M  , 

*  ERRCNT. INLNCT .CONS EC iLNNCBF, 81CNT , 

*  INCOD,  1NREF, OTCQD, CTREE , STFBIT 
COMM CN/ICHAR/DD. I  I , MM.TT .NN. YY 

COMMON/, QGI C/SEARCH, DIAG, SYNC. LSS.WR I TE.ZFRO, LEFT .CMC OL. ONE 
LOGICAL  SEARCH, 01 AG»  SYNC .WRITE. LEFT , CHCOL  «  ONE 

c******* **** *****************  begin  program  *************************** 

c 

MODE =4 


c 

c 

c 

1 

c 

c 

c 


RETRIEVE  NEXT  BIT  FROM  COBUF 
100  CONTINUE 

ENCODE  A  NEW  LINE  IF  NECESSARY 

IF  (L  B I  TS  +CDELP- 1  »LE .CDELCT  )  GO  TO  200 
IF (COELCT-COELP+l )  170,190.100 
170  STOP  170 
180  CONTINUE 

STFB'JF  (1)^1  48(  STFBUF  »C DELP » CDELCT— COELF+1  ) 

190  CONTINUE 

CDELP=32- ( CDELCT— CD ELP ) 

CALL  ENCOOX 
200  CONTINUE 

WRD=I4B(  STFBUF, COELP.LBITS) 

L=LB IT  S 

IF (L.EQ.12. AND. WRD. EQ. CODERO (3,93) >  GO  TO  300 
■250  CONTINUE  •  ■ 

M0DE=1 
RE  TURN 

300  CONTINUE 
MODE =2 
RETURN 
END 

SUBROUTINE  ENCODX 

C  •  • 

IMPLICIT  INTEGER(A-Z) 

C 

c*******  LABELED  COMMON  /G32BIT/  ******* 

c 

COMMON  /3328I T/MASK( 32) ,CQMASK( 32) ,LIBIT(32).LZ8IT(32) 

INTEGER  MASK, COMASK. LIBIT .LZBIT 
C 

COMMON /BUFF/PR  EBUF , PELBUF (60,2) ,CDBUF(240), 

*  OTB'JF  ( 60 .2  )  .ST  FBUF  ( 2  40  )  »  STAT(3000) 

CO  MM ON /HUFF /CD  DE( 3  «  92 ,2) ,CQDERO( 3.P3) .PREDCT(128) 
COMMCN/ERAY/ERRORS (250  0  ) 

C***********************  FILE  DEFINITIONS  ******************** 

C 

CQMMON/F I LES/TERM,  LPFI L»  PELF IL . OTF IL  »  ERF IL 
C 

<;**«****  **************  LABELLED  CCMMON  VARIABLES  ********************** 

C 

COMMQN/I VAR/PELMAX .VRES, EPHASE.CMPMAX.ERRMOO.L INMAX. K 
COMMON/? VAR/ INLNNO , OTLNNO. OT  ELW , INELP , COELP, OTELP .CDELW . 
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-ia. — ■  £■  ■  is  _ 


UNCLASSIFIED 


v.-  fI1  rLi:jy_,_  , 


ono  non  o  n  o  n  '  o nn^  non  non  n  non  non  onoon 


UNCLASSIFIED 


A  CDELCT . I NELCT.TCDATA.TCOEL.ERRPNT, ERROFF, ERRL I M , 

*  ERRCNT, INLNCT, CONSEC ,LNN0BF,B1CNT, 

*  INCOD, INREF.CTC0D.0TREF.STF9IT 
COMMON /I  CHAR /DO,  I  I ,  M,M  ,  TT  ,NN,  YY 

CO  .WMON/LOGI  C/SEARCH,  D I  AG,  SYNC  ,LSS,  WRITE.  ZERO ,L EFT .CHCOL . ONE 
LOGICAL  SEARCH.DIAG.SYNC.WRI TE , LEFT , CHCOL , ONE 

**********************************  BEGIN  PROGRAM  ******************** 

INITIALIZE  VARIABLES 

CDELCT  =32 

CDDATA=0 

DO  50  1*2,240 

coeuF<i)=o  -  . -  - 

STFBUF (I )=0 
50  CONTINUE 

READ  INPUT  PICTURE  FILE 

100  CONTINUE 

RE  AD ( P  EL  F IL , END= t 20 , ERR=500 > 

*  I  N_  NN  Q,  I  NELCT «  <PEL8UF<  I  ,  INCOD),  1*1,60) 

IF (MOD  < I NLNNO— 1 , VRE  S),NE»0)  GO  TC  100 
IF ( INELCT ,LT ,PELMA  X  )  CALL  EXIT 

INLNCT =INLNCT*1 

LOAD  OUTPUT  LINE  NUMBER  BUFFER 
LNNO  BF=INLNNO 

IF {SEARCH )OTLNNG*LNNOBF  . 

IF  {  I  NLNNO  *LE,L  INMAX  )  GO  TO  140 

WR ITE  SIX  EOL 1 • S 

120  CONTINUE 

DO  130  1=1,6 

■  CALL  CODEXt  0,1  .CDELCT, CDDATA) 

130  CONTINUE 

DO  135  1=1,6 
STFBUF (I )=CD8UF< I) 

135  CONTINUE 
GO  TO  400 

FIRST  OF  K  LINES? 

140  CONTINUE 

IF(MOD(INLNCT-l  ,K).NE.O)  GO  TO  600 
ONE-OI  MENSI  ONAL  CODING 

WRITE  ONE  EOL  1  ...  . . 

B1CNT=0 

-  -  CALL  C0DEX(0,  l.COELCT,  CDDATA)  . . . . . 

POLAR-*  1 

TEST  COLOR  OF  FIRST  ELEMENT 

IF ( 1 48 (PELBUFt 1 , INCOD )*1«1  )  .EQ .0  )  GO  TO  150 

FIRST  ELEMENT  BLACK?  ENCODE  O-LENGTH  WHITE  RUN 

CALL  XCQDLRtO.l, CDELCT. CDDATA) 

POLAR=2  . 

CALCULATE  RUN  LENGTH  AND  ENCODE  . 

150  CONTINUE 

-  RUN=0  -  -  - - -  - -  -•  -  - 

DO  200  I=1.PELMAX 

PEL= I  4  B( PEL  BUF( 1 , INCOD ), I ,1 ) fl 

IF(PEL .EQ. POLAR)  GO  TO  180 

CALL  XC0DLR( RUN, POLAR, CDELCT, CDDATA) 

IF(.NOT.OIAG)  GO  TO  170 

*RITS( TERM, 160)  RUN, POLAR, CDELCT .CDDATA 
160  FORMAT  <4  I  8) 

170  CONTINUE  ... 

RUN*  1 

POLA  R=  MOD { PCLAR+2 , 2 ) *1 
GO  TJ  200 
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UNCLASSIFIED 
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4Hf  «  .  rffe-uppU*  V 


UNCUASSJ  F JED 


180  CONTIS  US 
RUN=RUN*1 
200  CONTINUE 

CALL  XCODLRIRUN.PDLAR.  CDELCT  «  CDDATA ) 

81 CNT=CDELCT 

SAVE  LINE  LENGTHOAfA  BITS  ♦  EOL) 

ST  AT  (  INLNCT )=CDDATA*CCDSR0< 1.53) 

IF (.NOT. 01  AG)  GO  TO  210 

WR ITE( TERM. 160)  RUN .POLAR .CDELCT  .CDOATA 
GO  TO  210 

TWO-DIMENSIONAL  CODING 
600  CONTINUE 

WRITE  ONE  EOL 2 

CALL  C0DEX(0. 2. CDELCT, CDDATA) 

RUN=0 

DO  700  1=1,PELMAX 

PEL2* I  48 < PEL 9UFC 1 . INCOO) .1-2.2  ) 

P£Ll=I 48 ( PELBUF ( 1 ♦ I NREF ) . 1-2  »  5  ) 

CALL  M I 23( PEL I.PEL2.32— 6.5) 

PEL2P1 =PEL2>1 

IF (PRE  DCT  <  PEL2P1 ).EQ.I48( PEL  BUF( 1 . INCOD ) .1.1)) GC  TO  680 
CALL  C0DEX(RUN, 0, CDELCT. CDDATA ) 

IF( .NOT.OIAGJGO  TO  670 

WRITEt  TERM, 1 60 ) RUN, PE L2. CDELCT. CDDATA 
67  0  CONTINUE 
RUN=0 
GO  TO  700 
630  CONTINUE 
RUN=RUN>  1 
700  CONTINUE 

SPECIAL  CASE  IF  LAST  PEL  ON  LINE  IS  PREDICTED  CORRECTLY; 
FORCE  AN  INCORRECT  PREDICTION  AT  PELMAX  *■  1 

IF  (RUN  )  705.740.710 
705  STOP  705 

710  CALL  CODEX(RUN.O  .CDELCT. CDOATA) 

IF(DIAG)  WRITE(TERM.lt)O)  RUN  ,  PEL  2  ,  CDEL  CT  .CDDATA 
740  CONTINUE 

B1  CN  T= B1 CNT +CDELCT 

SAVE  LINE  LENGTH! DATA  BITS  PLUS  EOL) 

ST  AT ( I NLNCT)  =  CDDATA  +  C0DERD(1 .92 ) 

210  CONTINUE 

SWITCH  CODE  &  REFERENCE  LINES 

TE MP— I NREF 
IN  REF=  IN  COD 
INCQD=TEMP 

TRANSFER  CD3UF  TO  STFBUF 

CDELW= (CDELCT  +32-1 )/32 

DO  240  1=2. CDELW  . 

STFBUF ( I ) =CDBUF( I) 

240  CONTINUE 

CHECK  CODED  LINE  LENGTH 

F I LL*  0 

IF (MOD ( 1 NLNCT , K ) .ED .0 ) FlLL=K*(CMPMAX+32)-BlCNT 
IF(FILL)  400.400,250  ■  •  -  - 

CODE  LINE  TOO  SHORT;  FILL  IT  TO  CMPMAX 
250  CONTINUE 

CDELCT =CDELCT+FILl 

ACCUMULATE  STATISTICS  AND  ERROR  CORRUPT 

400  CONTINUE  -  •  . - . 

IF (ERRMOD.EO.NN)  GO  TO  390 

ERROR  CORRUPT 
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UNCLASSIFIED 
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UNCLASSIFIED 


350  CONTINUE 

ERRU  IT* ERRORS  (  ERRPNT )— ERROFF-TCDEL 
IF(£RRBIT.LE.O  )  GO  TO  360 
IF(ERRBI T.GT.COELCT-32 )  GO  TO  390 

ERROR  IN  RANGE  OF  COOED  LINE}  CHANGE  APPRQPF I ATE  3IT 

BIT=I4B(STFeUF,ERRBlT  +  32,l  ) 

BI  T*M0D(  BIT*!  .2) 

CALL  M  I2B(9IT»STF8UF«  ERR8IT+32, 1 > 

ER  RCNT  =£RRCNT*l 

INCREMENT  ERROR  LIST  POINTER 

360  CONTINUE 

£RRPNT*ERRPNT+1 

IF(ERRPNT.LE.ERRLIM)  GO  TO  350 
ERROR  LIST  EXHAUSTED 
ERRPNT=£RRPNT“1 

WRIT£(LPFiL,3  70>  ERRPNT,  ERRORS (  ERRPNT  > 

370  FORMAT  (‘OERROR  LIST  EXHAUSTED  AT*.I10,*TH  ERROR  l*  / 

*  *  LAST  ERROR  OCCURRED  AT'.IIO.*  BITS  • ) 

ERRMOOaNN 

COMPUTE  STATISTICS 
390  CONTINUE 

TCDEL=TC0EL*C0£LCT-32 . -  - -  — . 

TCOAT  A=T  COAT  A+CDDAT  A 

IF(DIAG)  WR ITE(TERM.160)  INLNCT,  CDOATA 

IF  (.NOT.OIAG)  GO  TO  460 
CDEL  W=(CDELCT*32-I)  /32: 

MR  IT E( LPF IL  « 450 }  ( C DBU F ( I )  ,  I  =  1 ,C DEL W ) 

WRITE! LPF I L ,450!  ( STF0UF  < I ) , 1=1 . CDELW > 

450  F0RMAT(6Z12)  -  .  . . - .  •— . 

460  CONTINUE 
RETURN 

500  CONTINUE 

CALL  EXIT  .  . . . 

END 

-•  -SUBROUTINE  CODEX ( LENGT  H, MODE  »COELCT  *  CDDATA) . 

IMPLICIT  INTEGER(A-Z) 

CQMMON/BJFF/PREBUF, PELBUF(60.2)»  CDBUF ( 240) , 

*  OT8UF (60,2 ) .STFBUF ( 2  40 ) ,  STAT(3000  ) 

CO MM ON /HUFF/ CO DEI 3»  92,  2) .CODERD ( 3, S3) ,PREDCT(128) 

COMM ON /ERAY/ERRORS(  2500) 

******* *************************  BEGIN  PROGRAM  *********************** 

INITIALIZE  MAKE  UP  CODE,  MAKE  UP  CODE  LENGTH 
MC0DE=0 

MLENG=0  . 

CHECK  INPUTS 

IF(M0DE.LT.0.0R.M00E.GT,2)  CALL  EXIT 
IF(LENGTH. LT.O. OR. LENGTH. GT.l  728)  CALL  EXIT 
IF  (MODE*  GT.  0 )  GO  TO  50  ----- 

.  IF  (LENGTH.LE.63)  GO  TO  10  . 

CALCULATE  MAKE  UP  CODE  INDEX,  CODE,  LENGTH 
AND  WRITS  TO  CODE  LINE  -  --•  . - . -  •  ~ 

INDEX=LENGTH/64+64 

MC0DE=C00ERD(3, INDEX)  . 

ML  ENG=  CO OER D{  1,  INDEX) 

CALL  MI23( MCODE, CDBUF, CDELCT  +1 • MLENG ) 

CDELCT=CDELCT*MLENS 

CODATA=CDDATA*MLENG 

CALCULATE  TERMINATING  CODE  INDEX,  CODE,  LENGTH 
AND  ADO  TO  CODE  LINE 


N-9 


UNCLASSIFIED 


1 
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yj-^-ii.^TT.  -  y,  9jvr?^^^«5 


UNCLASSIFIED 


10  CONTINUE 

IN 0EX= MOO (LENGTH. 64) *1 
TC 00£=CGDERD(3, INDEX) 

TL  ENG=  CO  DER  D(  1,  INDEX) 

CALL  .4  12  8  ( T  CODE  .  CD8UF.  CDELCT  *1  .  TLENG  ) 

CDcLCT  =CDELCT  4TLENG 
C00ATA=CDDATA4-TL£NG 
C 

RE  TURN 
C 

C  ADO  EUL  TO  CODE  LINE 
C 

50  CONTINUE 

MODE  P—  94—  MODE 

CALL  M  12  8 ( CODERD ( 3 * MODEP ) «  CDBUF »  CDELCT+l *CODERD ( I  .MODEP) ) 

CO EL  CT  =C  DEL CT+ C ODER D( 1  .MODEP) 

C 

RETURN 

C 

END 

SUBP.OUT1 N£  ONcXOX ( I N05X. COLOR. STATUS . L ) 

IMPLICIT  INTEGER(A-Z) 

C4444444  LABELED  COMMON  /G32BI T /  44**4** 

C 

COMMON  /3  32BI  T/MASK(  32 ) .CCMASKI32) , L I B IT (3 2 ) ,LZ3  IT< 32 ) 

INTEGER  MASK. COMASK. LI9IT.LZ8IT 
C 

COMMON /BUFF/PR  £OJF , PEL3UF ( 60,2) ,CDBUF(240)  , 

*  OTBUF (6G»2)»STFBUF(240).  STAT(3000) 

COMMON /HUFF /CODE I  3, 92. 2) .CODERD { 3 , 93 ) , PREDCT ( 1 2B ) 
COMMON/ERAY/ERRORS (2500  ) 

C444444444444*44*444A444  FILE  DEFINITIONS  **4***************** 

C 

COMMON /FILES/T ERM , LPF IL. PELF  I L . 0  TF IL , ERFIL 
C 

0***44*44**4444*44**44  LABELLED  COMMON  VARIABLES  44*444444*44444****444 

C 

COMMON/I VAR/PELMAX.VRES. EPHASE. CMPM AX. ERRMCD.L INMAX, K 
COMMON  /* VAR /IN_  NNO  .  3TLNNO  , OTELV. .  I  NELP .CDELP , GTELP.CDELW  . 

*  CDELCT. INELCT »T  COAT  A ,T  CDEL , ERRPNT. ERROFF. ERRLI M» 

*  ERRCNT , I NLNCT  » CO NSEC .LNNOBF , B1 CNT , 

4  INCUO,  I NREF , OT COD, OTREF . STFBIT 

COMM  ON /ICHAR/DD.I I .MM.TT.NN.YY 

COM.MuN/L  0  GI  C/S  EARCH,  D  I  AG.  SYNC,  LSS,  WRITE,  ZERO.  LEFT,  CHCOL.  ONE 
LOGICAL  SEARCH. 01 AG, SY NC . WR I TE , L EFT , CHCOL , ONE 

c 

0**4444444*444444444444444444  BEGIN  PROGRAM  44*4*444*444*44444444444444 

C 

£ 

C  BEGIN  DECODE  LOOP;  RETRIEVE  NEXT  CODE  WORD  LENGTH  (L) 

C 

1000  CONTINUE 

1002  LEN8IT=C0DE( 1 .INDEX, COLOR) 

CALL  GETLX(L£NBIT, MODE .LBITS.L ) 

IF(DIAG)  WRITE(TERM»1003)  LENBIT. MODE. LBITS.L 

1003  FORMAT  (216. Z8<  16) 

GC  TO  (1040  .1200.1205,1150),  MODE 
STOP  1040 
1040  CONTINUE 

IF (LB I TS • EQ. COD£( 3  « INDEX. COL  OR) )  GO  TO  1100 
C 

C  NO  MATCH;  ADVANCE  CODE  WORD  INDEX  VIA  DECODE  THREAD 
C  •  •  ...... 

INDSX= CODE( 2, INDEX, COLOR) 

IF (INDEX. GE. 93)  GO  TO  1190 

IF (CODE! I. INDEX, COLOR) .FQ.LENBIT)  GO  TC  1040 
C 

c  code  word  longer;  FROM  THE  TOP  . 

C 

GO  TO  1002 

C  MATCH  FOUND 
C 

1100  CONTINUE 

CDELP=  COELP+L 

C  ..... 

C  NOT  AN  EQL 
C 

-  C  ......  . .  . . 

C  TEST  FOR  MAKE  UP  OR  TERMINATING  CODE 
C 

RUNLEN=INDEX-1 


N-10 


UNCLASSIFIED 


on  o  on  non  non  ono  non  non  non  non  non 


UNCLAS3I  F  I  tO 


IF  (I  NOCX.Ua.  65) 
IF(RUNLEN.EO.O)  GO  TO 
IF  (COLOR*  l£0  .1  )  GO  TO 
IF(RUNLEH.LT.O)  STOP  1100 


RUNLfiN- ( INDEX-64 )  *04 


.111° 


ADO  BLACK  PON  TO  OUTPUT  BUFFER 


CO  1150  I  - 1  .  RUNLEN 

CALL  *4  220  (COLOR-1  *  OTBUF  (  1 , 0TC00  1  .0TELP.  1  ) 
0TELP-UT2LPM 

IF (0TELP-1  *GT  .PELMAX )  GO  TO  1100 
1  190  CONTINUE 

GO  TO  1160 

A00  WHITE  RUN  TO  OUTPUT  BUFFER  (BY  DEFAULT 2 

1  199  CONTINUE 

OT  EL  P- QT  ZLP  4RUNL  EN 

IF (OTELP-l .GT. PELMAX >  GO  TO  1100 

OUTPUT  LINE  LESS  THAN  OR  EQUAL  TO  MAX  SPECIFIED 


1160  CONTINUE 

IF  (INDEX.  LT  .65  1  GO  TO  1170 

inds  x»3 

GO  TO  1000 


RJN  ADDED  TO  OUTPUT  „2NEI  LENGTH  LESS  THAN  CR  EQUAL  TO  PELMAX  (II 
1170  CONTINUE 

CHCOL-.TRUE.  -•  . 

ST  ATUS-1 
RETURN 

RUN  ADDED  UNTIL  PELMAX  EXCEEDED!  LINE  TOO  LONG  (2) 

1180  CONTINUE 

IF ( 0  I A  G)  WR I TE (TESM.ll 851  C OTBUF C I . OTCOD ) . 1-1 . 60 1 

1189  FORMAT  (6Z1 0)  .  -  -  *  . 

STATUS5*  2 
RETURN 


NO  MATCH  FOUND  IN  CODE  TABLE  (3) 


1190  CONTINUE 
ST ATUS-3 

RETURN  -  -  . - . *  ■  * 

EOL1  OETECTED  (4) 

1200  CONTINUE 

STATUS-4  . 

RETURN 

EOL2  DETECTED  <  5)  -  - - - — 

1205  CONTINUE 
STATUS-5 
RE  TURN 
END 

SUBROUTINE  TWOXOXI I NDEX. COLOR » STATUS .L ) 
IMPLICIT  INTEGER!  A- 2) 

*******  LABEL SO  COMMON  /G32BIT/  *4*4*44 


COMMON  /G  3201 T /MASK ( 32 ) .COMASK (32) »L I  BIT (32 > .LZB IT( 32 ) 
INTEGER  MASK, COMASK, LIBIT.LZBIT 

COMMON /OUFF/PREOUF  » PELBUF (60.2). CD9UF (240) * 

•  OTBUF  (  60 . 2  )  .  ST  FUUF  (2  40  )  •  STATOOOO) 

COMMON  /HUFF  /C0DE(  3.92*2)  .COOERD  (  3.93  )  .PREDCTU26) 
CQMMCN/ER  AV/ERR0R3  ( 2500  ) . .  •-  •  •- 

***********************  FILE  definitions  ******************** 


COMMON  /FILE  3/TERM,  LPFIL.PELFIL.OTFlL.SWML 
C 

C*********************  LABELLED  COMMON  VARIABLES 
C 


COMMON/! V AR/PELMAX ,  VRES . C PHASE. CMPMAX, ERRMOO.L INMAX  *K 
COMMON/PVAR/INLNNO.CTLNNO.OTELW. INELP.COeLP.ClTFLP.CDEL** 

*  CDELCT, 1NELCT . TCDATA.TCOEL .ERRPNT.ERRCFF .ERRL1 M* 

*  ERRCNTjINLNCT.CONSCC.LNNOBF.BlCNT. 

*  1NC0D.1NREF, OTCOD.  CTREE.  STFim 


N-11 


UNCLASSIFIED 
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CCMMON/ICHAR/DD.  I  I , MM, TT.NN. YY 

C0MMJN/L0G1  C/SEARCH  ,DI  AG,  SYNC  ,LSS,  WPI  TE.  ZERO,  LEFT  ,CHCOL  .ONE 
LOGICAL  S  EAPCH,  01  AG,  SYNC  «I#RITE»LEF  I,  CHCOl.  •  CNE 
C 

C  BEGIN  DECODE  LOOP;  RETRIEVE  NEXT  CODE  *CRD  LENGTH  (L> 

C 

1000  CONTINUE 

1002  LENUIT  =  C3DERD(  1  ,  INDEX) 

CALL  G£YLX(LSNBIT.MOOc.LBITS.L) 

IF(DIAG)  WRITa(TEKM,1003)  LLNB I T .MODE  . LB  1  T S , L 

1003  FO MAT  (216,212,16) 

GO  TO  <1 040 ,1200.1205, 1190 ) ,  MUDE 
STOP  1040 
1040  CONTINUE 

IFtLbl TS.EQ.C0DERD(3, INDEX))  GO  TO  1100 
C 

C  NO  .*ATCH;  ADVANCE  CODE  MORD  INDEX  VIA  DECODE  THREAD 
C 

IN  0EX=  CD  DERDI  2,  INDEX) 

IF ( INDEX. GE.94 )  GO  TO  1190 
IF(C00ERD(1. INDEX). EQ.LEN8I7)  GC  TO  1040 
C 

•;  CODE  WORD  LONGER;  FROM  THE  TOP 
GO  TO  1002 

/* 

C  MATCH  FOUND 
C 

1100  CONTINUE 

CDELP=CDELP  *-l 

c 

C  NOT  AN  EOL 
C 

c 

c  TEST  FJR  MAKE  UP  OR  TERMINATING  CODE 
C 

RUNL EN=INDEX— 1 

IF ( INDEX, GE *65 ) RUNLEN= ( 1 NDEX— 6  4)464 
IF ( RUNLEN  >1110,1155.1140 
1110  STOP  1110 
C 

C  ADD  RUN  OF  CORRECT  PREDICTIONS  TO  OUTPUT  LINE 
C 

1140  CONTINUE 

DC  1150  1=1, RUNLEN 

PEL2  =  I 4B ( OT 3U  F { 1  .OTCOO ) , CTELP-2. 2) 

PEL1 = I  4B  ( 0T8UF ( 1.3TREF) .CTELP-2-5) 

CALL  M  I2B(PEL1 ,PE_2, 32-6, 5) 

PEL2P1 =PcL2+l 

CALL  M  12 9 (PREDCT ( PEL2P 1 )  ,CT3UF< 1 .CTCCD) , CTELP. 1 ) 

OTELP=OTELP+l 

IFIOTELP-l.GT.PELMAX)  GO  TO  1180 
1150  CONTINUE 

IF  (I  NDEX.  LT.65  )  GO  TO  1155 

IN  OEX=  1  ... 

GO  TO  1000 
C 

C  ADO  INCORRECT  PREDICTION  TO  OUTPUT  LINE 
C 

1155  CONTINUE 

IF(CTELP,EU.PEL4AX  +  1  )  GO  TO  1160 
PEL2  =  I 43( OT  3UF ( 1  , OT COD ) , OTEL P-2 , 2 ) 

PEL1  =  I 4B1 OT 8UF ( 1 , OTREF ) , OTEl  P-2,5) 

CALL  M  I2BIPELI , PE-2. 32-6, 5 ) 

PEL2P1=PEL2+1 
PEL=  PR  EDCT { PEL 2P 1 ) 

PEL=MOD(  PEL  *-l  ,2) 

CAUL  M  12  8  (  3  EL  » OT  BJ  F{  l.OTCOD) .OTELP. 1  ) 

OF  C L P=  UT r  **•) 

IF  {  0 TEL3  -  .  T *  PELMA  X)  GO  1100 

C  RUN  ADDEi’-  1  !  nttipui  LiML  ,  i  ■  iiiTH  LCj’-'  THAN  OR  EQUAL  TO  PELMAX  (1) 
C 

11  .  0  CUNT 1NL 
T  A  T  U  S  =  1 
PC  URN 

■’  . j *.  a.)de  :  >  "L-nx  rxc t  <eo;  lin;:  -i.o  lcng  (2) 

c  •  - 

1  1  '.(!  f.'NTINLL 

t-  UIA(.<  ,•  {TC3M»lt*>‘  ’  .  0T3UF(  u<.  CO)  ,1=1 ,60) 

i  .  ■  i  ■  ■  • 


UNCLASSI FIED 


KPtri.7c"r^ 


UNCLASSIFIED 


C 

C 

C 


c 

c 

c 


c 

c 

c 


STATUS=2 

RETURN 

NO  MATCH  FOUND  IN  CODE  TABLE  <  3 > 

,  190  CONTINUE 
ST  A7US=3 
RETURN 

EQU  DETECTED  (A) 

,200  CONTINUE 
ST  ATUS=4 
RETURN 

E0L2  DETECTED  (5) 

205  CONTINUE 
ST  ATUS=  5 
RETURN 
END 


1 


BLOCK  OATA 


C* 

c 


IMPLICIT  INTEGERCA-Z) 

****** ****** **********  FILE 


DEFINITIONS  .ft******************* 


COMMON/FI LES/TERM, LPFIL. PELF IL. OTFIL. ERF IL 


C* 

c 


CO MM ON /BUFF /PR EBUF • PEL  BUF ( 60 • 2  >  ,CDBUF(240> , 

♦  0TBUFI60.2 ).STFbUF(240).  STATC3000) 

CO MM ON /HUFF /CODE! 3,92,2) , CODERD (3.93)  , PREDCT 0  28) 

COMMON /ERAY /ERRORS ( 2500 ) 

********************  LABELLED  COMMON  VARIABLES  ********************** 

COMMGN/I  VAR/PSLMAX, VRcS.EPHASE, CMPM AX  *  ERRMOD .L INMAX • K 
COMMON /3V  AR / 1 N-NN3 . 0  TLNNC  .  OTELW  I NELP  . CDELP.  OTELP -•  CDEL  W  , 

*  CDELCT • 1 NELCT  *TCDAT  A .TCDEL.EKRPNT . ERROFF.ERRLI M • 

*  ERRCNT  * I NLNCT .CON SEC .LNNCBF ,BI CNT . 

♦  INCJD.  I NREF .  CTCC  D»  OTREF  .  S  TFB I  T 
COMMON /I  C  HAR/DD. I  I . MM, TT * NN, YY 

CO  M.MON /_  CGI  C/SEARCH, DIAG.  SYNC,  LSS,  WRITE,  ZERO.  LEFT.  CHCOL,  ONE 
LOGICAL  SEARCH, 01 AG. SYNC. WRITE. LEFT. CFCDL «  ONE 


OATA 
DATA 
OATA 
DA  TA 


TERM.LPFIL.PELFIL.OTFIL.ERFIL/5.6.I ,2,3/ 


DO, I  I , MM.TT iNNi 


i  •  M*  ,  •  T  *  *•  N*  .  '  V*  / 


PE;. MAX .VRES  »  EPHASE, CMPMAX .ERRMOD .L INMAX/1  728.2 ,0.96 ,*  T* ,3000 
K/2/ 

DIAG/. FALSE./ 


DATA 

C3DEU. 

l.l  ) 

CODE (2, 

1 . 1 

>,CCDEC3. 

1.1  )/ 

£. 

70, Z 0035/ 

DATA 

CODE (  1. 

2,1) 

CODEC  2, 

2,1 

)  , CODE (3 , 

2,1)/ 

6. 

90, Z0007/ 

OATA 

CDD£{  1. 

3.1  ) 

CODEC  2, 

3, 1 

)  .CODEC  3, 

.3,1)/ 

A, 

4.Z0007/ 

DATA 

C3Qc<  1  . 

4,1  ) 

CODE  (2  , 

4,1 

)  , CODE (3 , 

4,  1  )/ 

4, 

5, Z 0006/ 

DATA 

CODE( 1. 

5*1  ) 

CODEC  2, 

5,1 

)  ,CGDE(3, 

5.1)/ 

4. 

•  6, ZOO 08/ 

DATA 

CODcCl. 

6,1  ) 

C0DEC2, 

6,  1 

),  CODEC  3»- 

6.1  )/ 

4, 

7,  ZOOOC/ 

DATA 

CO  D  E  (  1  . 

7.1  ) 

C0DEC2, 

7,1 

)  ,  CODE ( 3  , 

7,1  )/ 

4, 

8.Z000E/ 

DATA 

CODEC  1, 

8,  1  ) 

CODEC  2, 

B ,  1 

) .CODEC  3, 

8.1)/ 

4, 

9.Z000F/ 

DATA 

CODE ( X , 

9,1  ) 

C0DEC2, 

9,1 

) , CODE (3, 

9.1)/ 

5, 

10, Z001 3/ 

DATA 

CODE  (  I . 

10,1) 

CODEC  2, 

10,1 

) .CODE  C  3 , 

10,1)/ 

5. 

11  ,  Z001 4/ 

DATA 

CODE (I • 

11  .1) 

CODE ( 2, 

11,1 

) ,  CODE (3, 

11.1  )/ 

5, 

12.Z0007/ 

DATA 

CODE (  I  , 

12,1) 

CODE ( 2, 

12,1 

) .CODE (3  , 

12,1  )/ 

5. 

65, Z0008/ 

DATA 

COO £( l  , 

13,1  ) 

CODEC  2. 

13.1 

) .CCDEC3* 

13.1 >/ 

6, 

1 4, ZOO  0  8/ 

OATA 

CO  0  E  (  1 , 

14,  1  ) 

CODEC  2, 

14,  1 

), CODEC  3, 

14.1 )/ 

6, 

1 5.Z0003/ 

DATA 

CODcCl  , 

15,1  ) 

CODE  ( 2  * 

15,1 

) , CODE (3, 

15,1  )/ 

6, 

1 6, Z  0034/ 

DATA 

CODEC  1, 

16,1  ) 

CODEC  2, 

16,1 

) .CODEC  3, 

16,1  )/ 

6, 

1 7.Z0035/ 

DATA 

CODE  C 1 . 

17,1  ) 

CODE ( 2* 

17,  1 

) , CODEC  3 , 

17,1)/ 

6, 

18.Z002A/ 

DATA 

CODEC  1. 

13,1  ) 

CODE (2, 

16,1 

) .CODE (3 , 

18.1  )/ 

6. 

19.Z002B/ 

DATA 

COOEU  , 

19,1) 

CODEC  2, 

19,1 

) .CODEC  3* 

19,1)/ 

7. 

2C.Z0027/ 

DATA 

CODEC  1 , 

20,1  ) 

CODE (2  . 

20,1 

) ,C0DEC3. 

20,1)/ 

7, 

21  .ZOOOC/ 

DATA 

CODEC  1. 

21.1) 

CODEC  2, 

21,1 

), CODEC  3, 

21  ,1)/ 

7, 

22  ,Z00 08/ 

DATA 

CODEC!, 

22,1  ) 

CQDEC2* 

22,1 

),C0DE(3, 

22, l )/ 

7, 

23, Z  001  7/ 

DATA 

CODEC  1. 

23, 1  i 

CODEC  2, 

23,1 

) ,C0DEC3» 

23.1 )/ 

7, 

24.Z0003/ 

DATA 

CODEC  1 . 

24*1  ) 

CODE ( 2 , 

24,  1 

), CODEC  3, 

24,1 )/ 

7, 

25.Z0004/ 

DATA 

CODEC l. 

25,1) 

C0DEC2, 

25,1 

> , CODE (3 « 

25,1  )/ 

7, 

26,30028/ 

DATA 

CODEC!, 

26.  1  ) 

CODEC  2. 

26,  1 

). CODEC  3. 

26.1 )  / 

7, 

27.Z002B/ 

DATA 

CODECi . 

27,1) 

CODE (2 • 

27  .1 

) .CODE (3* 

27,1  )/ 

7, 

23.Z0013/ 

DATA 

CODEC  I, 

23,1 

CODEC  2, 

23,1 

) .CODE  C  3, 

28.1 ) / 

7, 

29 , Z002  4/ 

DATA 

COOEU, 

29,1) 

C0DEC2. 

29,1 

) , CODE ( 3, 

29,1)/ 

7, 

68.Z0018/ 

DATA 

CODEC  1 , 

30,1  > 

CODE (2. 

50,1 

> .CODE (3  , 

30,1  )/ 

8, 

31  »  Z0002/ 

OATA 

CODE  (1  , 

31 ,1  ) 

CODEC  2, 

31,1 

) .CODEC  3, 

31,1  )/ 

e. 

32.Z0003/ 

DATA 

CODEC  1, 

32.1) 

CODEC  2, 

32,1 

) , CODE  C  3 , 

32.1)/ 

8. 

33.  Z 001  A/ 

DATA 

OOECU 

33, 1  ) 

CODEC  2, 

33,  1 

) ,C00E(3. 

33,1)/ 

8.  34.Z001B/ 

UNCLASSIFIED 

N-1 3 


U  ‘n3U.fi.’* a  t.  - 


rv v^x^-WS! "* -»V  o'” 


UNCLASSIFIED 


DATA 

CODE ( 1  . 

34 

1  ) 

CODE  I 2t 

34 

1  ) , CODE  I 3t 

34 

1  >/ 

8, 

35 

,20012/ 

DATA 

CODE!  It 

35 

1) 

CODEI 2t 

35 

.1  )  tCCDE 13  t 

35 

1  )  / 

e. 

36 

,20013/ 

DATA 

CODE  (I* 

36 

1  > 

CODE  I 2t 

36 

1  ) tCODEI 3t 

36 

1  1/ 

8, 

37 

,20014/ 

DATA 

CD  DEI  1  . 

37 

1  > 

C  DDE  I 2  t 

37 

t  1  1 t  CODE  15  t 

37 

1  1/ 

8, 

38 

,20015/ 

DATA 

CODE!  1  t 

38 

1  1 

CDDEI 2t 

38 

1  )  .  CODEI 3t 

38 

1  )  / 

6. 

39 

,2001 6/ 

DATA 

CODE ( 1  . 

39 

1  ) 

C  DDE  I  2  t 

39 

.1  ) t  CODE  I  3  t 

39 

1  1/ 

8. 

40 

,20017/ 

DAT  A 

CODEI  1 . 

40 

1  1 

CODEI 2t 

40 

.1  ) t  C  ODE  I  3  t 

40 

1  )  / 

8. 

41 

,20028/ 

OATA 

CODE  1 1 . 

41 

1  ) 

CODE  I  2 1 

41 

1  )  t  CODE  I 3 1 

41 

1  1/ 

8, 

42 

,20029/ 

DATA 

CDDEI  1  , 

42 

1  1 

CDDEI  2 1 

42 

.1 ) t  CODE 13  t 

42 

1  1/ 

8, 

43 

2002  A/ 

DATA 

CDDEI  I t 

43 

1  ) 

CODE! 2t 

43 

,  l  )  t  CODE I  3  t 

43 

1  )  / 

8, 

44 

,  2002B/ 

DATA 

CODE!  i  . 

44 

1  ) 

CODE  12  t 

44 

.1  )  t  CODE ( 3 1 

44 

1  )/ 

8, 

45 

.2002C/ 

DATA 

CDDEI  1 1 

45 

1  ) 

CODE  I 2  t 

45 

,  1  )  tCCDE I  3  t 

45 

1  )  / 

8, 

46 

,20020/ 

DATA 

CODSI 1 . 

46 

1  ) 

CODE  I  2  t 

46 

.1  1 1  CODE  I  3 1 

46 

1  1/ 

8. 

47 

,20004/ 

DATA 

CODE! 1 t 

47 

1  ) 

CODE  I  2  t 

47 

,  1  ) tCOOEI3  t 

47 

1  1/ 

8, 

48 

20005/ 

DATA 

CODE! 1, 

43 

1  > 

CODEI  2 1 

48 

1 1  ) tCODEI 3« 

48 

1  1/ 

8, 

49 

.  2000A/ 

DATA 

CDDEI l  , 

49 

1  1 

C  ODE  1 2  t 

49 

.  1  1 ,CODEI3t 

49 

1  1/ 

8, 

50 

20008/ 

OATA 

CDDEI  1  . 

50 

1  1 

CODE I2t 

50 

tilt  CODEI 3t 

50 

1  1  / 

e. 

51 

,20052/ 

DATA 

CDDEI1 # 

51 

1  ) 

CODE  I  2  t 

51 

t!  ) t  CODE  I  3  t 

51 

1  1/ 

8, 

52 

,20053/ 

OATA 

CDDEI  1. 

52 

1  ) 

CODEI  2  t 

52 

,1  ) ,CCOEI3t 

52 

1  1/ 

8, 

53 

,20054/ 

DATA 

CODE  I  i  , 

53 

1  1 

CODE  I  2  t 

33 

>1  ) t  CODE  I  3 1 

53 

11/ 

8. 

54 

,  Z  0055/ 

DATA 

CDDEI  1  t 

54 

1  1 

CODE  I  2  t 

54 

1 1  ) tCODEI3  t 

54 

1  1/ 

8, 

55 

.Z0024/ 

DATA 

CDDEI  I  . 

55 

1  1 

CODE  I 2t 

55 

t  1  1 1  CODE I 3  t 

55 

l  >  / 

8  ,• 

56 

,  Z  002  5/ 

DATA 

CODE! 1 t 

56 

1  ) 

CODE  1 2  , 

56 

.  1  )  t  CODE  I 3  « 

56 

1  1/ 

8, 

57 

,  Z0056/ 

DATA 

CDDEI  1  . 

57 

1  ) 

CODEI 2t 

57 

.1  )  .CODE! 3  t 

57 

1  )  / 

8, 

58 

,20059/ 

DATA 

CODE! 1 , 

58 

1  ) 

CODE (2  t 

58 

,1  )  tC00EI3, 

58 

1  1/ 

e. 

59 

.Z005A/ 

DATA 

CD  DEI  It 

59 

1  ) 

CODE (2. 

59 

t  1  )  tCCDc(3, 

59 

11/ 

8, 

60 

, Z005B/ 

DATA 

CODE  I i t 

60 

1  ) 

CODE  (2  t 

60 

t  1  )  t  CODE  I  3  t 

60 

11/ 

8, 

61 

t  Z  004 A/ 

DATA 

CODE! 1. 

61 

1  ) 

CODE I2t 

61 

tl ) tCODE 13  t 

61 

1  1/ 

8, 

62 

,  2004  B/ 

DAT  A 

CDDEI  1 1 

62 

1  ) 

CODEI 2t 

62 

.  1  ) tCODEI 3. 

62 

1 1  / 

8. 

63 

,20032/ 

DATA 

CDDEI l , 

63 

1  1 

C  DDE  I 2  t 

63 

.1  >  t  CODE  I  3  t 

63 

1  1/ 

8. 

64 

•  Z0033/ 

DATA 

CD  DEI  1, 

64 

1  ) 

CODE! 2 1 

64 

t l ) tCODEI 3, 

64 

1  )/ 

8  , 

69 

,20034/ 

DATA 

CODE! 1 . 

65 

1  1 

CODE  1 2  t 

65 

tl  ) t  CODE  I  3  t 

65 

1  )/ 

5, 

66 

.Z0018/ 

DATA 

CDDEI  1 1 

66 

1  ) 

C0CEI2  t 

66 

tl  )  tCODE I 3  t 

66 

11/ 

5, 

67 

,  Z001  2/ 

DATA 

CODE lit 

67 

1  ) 

CODE  I 2t 

67 

.  1  )»  CODEI 3, 

67 

1  1/ 

6. 

2 

t  Z  001  7/ 

OATA 

CODE! 1  . 

68 

1  ) 

CODE  I  2  t 

68 

tl  >  tCODE  13  . 

68 

1  1/ 

7. 

30 

t  Z0037/ 

DATA 

CDDEtl. 

69 

1  1 

CODE  I 2t 

69 

t 1 ) tCCDE! 3, 

69 

11/ 

8. 

1 

t  Z  0036/ 

DATA 

CODE! 1 . 

70 

1  ) 

CODE  12  t 

70 

, 1  ) t  CODE  13, 

70 

11/ 

8. 

71 

,  Z  0037/ 

DATA 

CDDEI  I. 

71 

1  ) 

CODEI 2t 

71 

t 1 )  tCODE ( 3  » 

71 

1  1  / 

8. 

72 

, Z  0064  / 

DATA 

CDDEI 1. 

72 

1  ) 

CODEI 2. 

72 

. 1  ) t  CODE  13, 

72 

1  1/ 

8. 

73 

t  Z  0065/ 

DATA 

CDDEI 1. 

73 

1  1 

CODE  I 2  t 

73 

,1  >  tCODE 1 3  , 

73 

1  1  / 

8. 

74 

.Z0068/ 

DATA 

CODE  lit 

74 

1  ) 

CODE I 2t 

74 

, 1 ) .CODE! 3, 

74 

1  1/ 

6, 

75 

t  Z 0067/ 

DATA 

CDDEI l , 

75 

1  1 

C  ODE  1 2  t 

75 

,  1  ) .C0DEI3, 

75 

1  1/ 

9, 

76 

•ZOOCC/ 

DATA 

CDDEI 1. 

76 

1  ) 

CODE! 2t 

76 

, 1 ) , CODE! 3, 

76 

1  1  / 

9, 

77 

tZOOCD/ 

DATA 

CODE  1 1  . 

77 

1  ) 

CODE  12  t 

77 

tl ), C0CEI3, 

77 

1  1/ 

9. 

78 

, 2  00D2/ 

DATA 

CDDEI  1. 

78 

1  ) 

CODE  I 2  t 

78 

.1  )  t  C  ODE  I 3 , 

78 

1  1/ 

S. 

79 

,  2  0003/ 

DATA 

CDDEI  1. 

79 

1  ) 

COOE 1 2  t 

79 

.  1 1 tCCDE I  3 , 

79 

1  1/ 

9, 

80 

,20004/ 

DATA 

CDDEI 1 . 

80 

1  ) 

CODE  I 2t 

80 

.1  ) tCODEI 3, 

80 

11/ 

9, 

81 

, Z  0005/ 

DATA 

CODE! 1. 

81 

1  ) 

CODE ( 2  t 

81 

,1 ) ,C0DE 13, 

61 

1  1/ 

9. 

82 

. ZOOD6/ 

DATA 

CDDEtl  . 

82 

1  ) 

CODEI 2t 

82 

, 1  1 , CODE  13, 

82 

1  1/ 

9, 

83 

,  2  OOD  7/ 

DATA 

CDDEI 1 . 

83 

1  ) 

C  ODE  I  2  t 

83 

,1 ) ,CCDE(2 , 

83 

1  )/ 

9. 

84 

, Z00D8/ 

DATA 

CDDEI  It 

84 

1  ) 

CODE  I  2  t 

64 

, 1 ) , CODE  I  3, 

84 

1  1/ 

S, 

85 

,2  0009/ 

DATA 

CODE! 1» 

85 

1  ) 

CODE  I  2  t 

85 

tl  ) .C0DEI3, 

85 

1  1/ 

9, 

86 

, ZOOOA/ 

DATA 

CDDEI  1. 

86 

1  ) 

CODE  I  2  t 

86 

, 1 ) tCODE I  3 , 

86 

1  1  / 

9, 

87 

. ZOODB/ 

DATA 

CODEI 1 t 

87 

1  > 

CODE  I 2t 

87 

, 1 ) , CODE  I  3 , 

87 

1  1/ 

9. 

88 

, Z  0098/ 

DATA 

CDDEI  1  t 

88 

1  ) 

C  ODE  1 2  t 

88 

, 1  ) ,COOE I  3 , 

68 

1  1/ 

9. 

89 

• Z0099/ 

DATA 

CDDEI 1 . 

89 

1  1 

CODE  I  2. 

89 

t 1 1 tCODEI 3 , 

89 

1  1/ 

9, 

91 

.Z009A/ 

DATA 

CODEI 1 . 

90 

1  ) 

CODEI 2  , 

90 

,1 ) .C0DEI3, 

90 

1  1/ 

6, 

13 

,Z0018/ 

OATA 

CD  DEI  1 1 

91 

1  ) 

CODEI 2 1 

91 

tilt  CODE  13, 

91 

1  )/ 

9, 

92 

, Z  009  8/ 

DATA 

CODEI  1  . 

92 

1  ) 

CODE  I  2 1 

92 

,  1  ), C0DE13. 

92 

,11/12, 

93 

.Z0001/ 

DATA 

CODEI  1. 

1 

2) 

CODEI 2, 

1 

,2) tCODE  13  , 

1 

,21/10, 

65 

,20037/ 

DATA 

CDDEtl  t 

2 

2  1 

CODEI 2t 

2 

t  2 1 , CODEI 3 , 

2 

,21/ 

2. 

6 

,20002/ 

DATA 

CODEI 1  , 

3 

2  ) 

CODE  I  2  . 

3 

,2 1 , CODE  13 , 

3 

.2  1/ 

2. 

4 

, Z0003/ 

DATA 

CDDEI It 

4 

2) 

CODE  I  2 , 

4 

,21 .CODE! 3, 

4 

-•  2  1  / 

2. 

5 

.20002/ 

DATA 

CODEI 1 t 

5 

2  1 

CODE  I  2  t 

5 

,2 1 , CODE  13, 

5 

,2)/ 

2, 

2 

, Z  0003/ 

DATA 

CDDEI  It 

6 

2  ) 

CJDc(2, 

6 

,2) tCODE 13* 

6 

.21/ 

4, 

7 

. Z0003/ 

DATA 

CODEI 1 t 

7 

2  ) 

CODEI 2t 

7 

, 2>tC0DE(3, 

7 

,2)/ 

4, 

8 

, Z  0002/ 

OATA 

CDDEI l t 

8 

2) 

CODE  I 2  t 

8 

,2) tCODE  13, 

8 

,2  1/ 

5. 

9 

. Z0003/ 

DATA 

CODE!  1. 

9 

2  ) 

CODE  I  2  t 

9 

, 2) tCODEI 3, 

9 

.2  1/ 

6, 

1  0 

,20005/ 

DATA 

CDDEtl t 

10 

2  1 

CODE  I 2  t 

1  0 

,2  1 , CODE  I  3  t 

10 

,  2  1/ 

6, 

11 

, Z  0004/ 

DATA 

CDDEI  1. 

11 

2  ) 

CODE  I  2  t 

1  1 

,21 ,OaOE(3t 

11 

.21/ 

7, 

12 

, Z0004/ 

DATA 

CDDEtl  t 

12 

2  1 

CODEI 2t 

12 

,  21.C00EI3, 

12 

,2  )/ 

7, 

13 

,Z  0005/ 

DATA 

CODE!  1  , 

13 

2) 

CODE! 2» 

13 
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6, 
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8. 
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9, 
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48) 
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9, 
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9. 

51  . 

50) 
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50 ) .COTERDt  3, 

50)/ 

8. 

68, 

51  ) 

C QDERO  1 2  » 

51 ) , CODERDtS, 

51  )/ 

9. 

52, 

52) 

CODERDt  2, 

5  2), CODERD  t  3  » 

52)/ 

9. 

53, 

53) 

CODERD  1 2 , 

53  ). CODERDtS, 

53)/ 

9, 

54, 

54) 

CODERD  t  2 , 

54) .CODERD  t  3 , 

54)/ 

9, 

55, 

55) 

CODERD  t  2  » 

55  ) , CODERD ( 3 , 

55)/ 

9. 

56, 

56) 

C  ODE  RD ( 2 , 

56  > , CODERD  1 3 , 

56  )/ 

9. 

57, 

57) 

COOERO  t  2 . 

57) .CODERDt  3  , 

57)/ 

9. 

58, 

58) 

CO  DEPO  t  2 , 
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9, 

59, 

59) 
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9. 
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CODERDt  2, 
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9. 
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9, 

63, 

63  ) 

CODERD  t 2. 
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9. 

64, 
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CODERD  t  2 , 

64).  COOEROd, 

64  )/ 

9. 

69, 

65) 

CODERD (2 , 

65) »  CODERD  1 3 , 

65)/ 

5, 

92, 

66  ) 

CODERDt  2, 

66). CODERDt  3, 
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6  , 

14, 

67) 

C  ODERD  f 2  « 

67  )  , CODERD t  3 , 
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7, 

91  . 

68) 

CODERDt  2. 

68)  .CODERDd. 
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8  , 

45, 

69) 

CODERD  t2  » 

69). CODERDtS, 

69  )/ 

9. 

70, 
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9. 

89, 
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73) 
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74) 

CODERDd  , 
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81  ), CODERD  t  3 . 
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82, 
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CODERD  t  2 , 
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93  ) 

CODERD ( 2  « 
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10, 

93  ) 
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DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DA  TA 

OATA 

DATA 

OATA 

OATA 

DATA 

OATA 

DA  JA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

OATA 

DATA 

OATA  I 

DATA  I 

DATA  i 

DATA  I 

DATA  f 

OATA  I 

DATA  f 

OATA  F 

OATA  f 

OATA  F 

DATA  F 

DATA  F 

DATA  P 

DATA  F 

OATA  P 

DATA  F 

DATA  P 

DATA  F 

data  p 
DATA  P 
OATA  P 
DATA  P 
OATA  P 
DATA  P 
DATA  P 
DATA  P 
DATA  P 
DATA  P 
DATA  P 
DATA  Pi 
DATA  P 
OATA  P! 
OATA  P 
OATA  PI 
DATA  PI 
DATA  PI 
OATA  PI 
DATA  PI 
DATA  Pf 
OATA  PF 
OATA  Pf 
DATA  PF 
OATA  PF 
DATA  PF 
DATA  PF 
DATA  PF 
DATA  PR 
DATA  PF 
OATA  PFi 
DATA  PR 
DATA  PR 
DATA  PR 


TA  PREOCT ( 3) /O/ 
TA  PREDCT ( 4)/l/ 
TA  PREDCT  (5)/0/ 
TA  PREDCT(6)/X/ 
TA  PREDCT <7 )/0/ 
TA  PREDCT  {  8)  /l  / 
TA  PREOCT <9)/0/ 
TA  PREDCT { 1 0)/l / 
TA  PREDCTCn/O/ 
TA  PREDCT  ( 12)/X/ 
TA  PREDCT(13)/0/ 

TA  PREDCT  (14)/1/ 
TA  PRcDCT (15) /0/ 
TA  PREDCT (16 )/!/ 
TA  PREDCT  (17  )/0/ 
TA  P RE D  CT  (  1  8)  /I  / 
™  £«OCT(I9)/0/ 
J*  PREDCT(20)/1/ 
rA  PREDCT  (21  )/0/ 
U  PREDCT (22)/l/ 
[A  PREDCT(23)/1/ 
[A  PREOCT  (24  )/l/ 
rA  PREDCT(25)/1/ 
rA  PREDCT  (26)/l/ 
[A  PRcDCT(27)/l/ 

A  PREDCT  (  28  )/l/ 

A  PREDCT  (  2  9  )  / 1  / 

A  PREDCT ( 30) /l/ 
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A  PREDCT ( 32 ) /I / 

A  PREDCT ( 33  )/0/ 

A  PREDCT  (34)/’/ 

A  PREOCT ( 35)/0/ 

A  PREDCT  (36 )/l / 

A  PREDCT ( 37 ) /0/ 

A  PREOCT  (38)/!/ 

A  P  RE  D  CT  (  3  9  )  /I  / 

A  PREDCT( 401/1/ 

A  PREDCT (41 )/0/  - 

*  PRE0CT(42)/1/ 

A  PREDCT(43)/0/ 

*  PR£DCT(44)/I/ 

*  PREDCT ( 45 )/0/ 

\  PREDCT  <46)/0/ 

*  PREDCT ( 47 f /O/ 

*  PRcDCT  (48  )/l/ 

(  PREDCT ( 49) /O/  - 

*  PREDCT  (50)/!/ 
PREDCT(5I  )/0/ 

(  PREDCT( 52)/)/ 

(  PREDCT ( 53 )/0/ 
l  PREDCT ( 54)/X/ 

I  PREOCT (55)/0/ 
i  PREDCT  (S6)/X/ 
i  PREDCT( S7)/X/  - 
>  PREDCT ( 58 )/i / 
PREOCT ( 59) /O/ 
i  PREDCT ( 60 )/l/ 
PREDCT (  61  )/!/ 
PREDCT ( 62)/l/ 
PREDCT (63)/0/ 
PRE0CT(64)/1/ 
PREOCT (65)/0/ 
PREDCT ( 66) /I / 
PREDCT ( 67 )/0/ 
PREDCT (68)/0/ 
PREDCT( 69)/ 0/ 
PREDCT (70 )/l/ 
PREDCT( 7X )/0/ 
PREDCT ( 72 )  / 1/ 
PREDCT  (73)/0/  - 

PREOCT{  74)  /I  / 
PRcDCT (75)/0/ 
PREOCT { 76 ) /!/ 

P  HEDCT ( 77 )/0/ 
PREOCT (73)/X/ 
PREDCT ( 79)/0/ 
PREDCT  (80  )/l/ 
PREDCT(8X)/0/ 
PREOCT (82 )/l/ 
PREDCT ( 83 )/0f 
PREDCT ( 84 ) /I / 
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N-1  7 


UNCLASSIFIED 


,~vw«rr' 


UNCLASSIFIED 

DATA  PREDCT ( 85 )/0/ 

OATA  PRE0CT(86)/1/ 

DATA  PREDCT ( 871/1/ 

DATA  PREDCT  (881/1/ 

OATA  PREDCT ( 89) /O/ 

DATA  PREDCT (901/1/ 

DATA  PREDCT! 91 )/l/ 

DATA  PREDCT ( 92 1/1/ 

DATA  PREDCT (931/0/ 

DATA  PREDCT  (  94)  /I  / 

OATA  PREDCT (951/1/ 

OATA  PREDCT(96>/1/ 

DATA  PREDCT ( 97 )/0/ 

OATA  PREDCT (98)/l  / 

DATA  PREDCT! 99) /0/ 

DATA  PREDCT  (1001/0/ 

DATA  PREDCTdOi  1/0/ 

OATA  PREDCT! 102)/!/ 

DATA  PREDCT (1031/0/ 

DATA  PREDCT! 104J/0/ 

OATA  PREDCT  (1051/0/ 

DA  TA  PREDCT! 106)/1/ 

OATA  PREOCT  (1071/0/ 

DATA  PREDCT  (108)/!/ 

OATA  PREDCT! 109)/0/ 

OATA  PREDCTU101/1/ 

DATA  PREDCT!  1  U)/0/ 

DATA  PREDCT  (112  1/1/ 

DATA  PREOCT! 1131/0/ 

OATA  PREOCT! U A)/I/ 

OATA  PREDCT  !  I  X  5)/0 /  -• 

DATA  PREDCT!  i  16)/1  / 

DATA  PREDCT  (1171/0/ 

DATA  PREDCT! 1181/1/ 

DATA  PREOCT  (1191/0/ 

DATA  PREDCT  (1201/1/ 

OATA  PREDCT! 121 1/0/ 

OATA  PREOCT ( 1 22  )/l / 

DATA  PREDCT! 123>/0/ 

DATA  PREDCT (1241/1/ 

DATA  PREDCT (1251/0/ 

DATA  PREDCT! 1261/1/ 

DATA  PREDCT  (1271/0/ 

OATA  PREDCT!  1281/1/ 

END 

SU8R OUT! M E  XCODLR (LENGTH, POLAR , CDELCT , CDDAT A  1 
IMPLICIT  INTEGER (  A-Z 1 

COMMON /9  JFF /PREBUF , PELBUF (60,2), CDBUF ! 240 1 , OTBUF (60,2), 

*  STFBUF! 240  1 ,  STATI3000) 

CQ  MM ON /HUFF /CD  DE( 3 , 92 , 2 1 .CODERD (3,93), PREDCT (1281 
COMMON/SRAY /ERRORS! 2500)  . 

t *******************************  BEGIN  PROGRAM  *********************** 

INITIALIZE  MAKE  UP  CODE,  MAKE  UP  CCDE  LENGTH 

MC0DE=0  "  •  . 

MLENG=0 

CHECK  INPUTS 

IF (POLAR. LT.l . OR. POLAR ,GT ,2)  CALL  EXIT . 

IF(LcNGTH. LT.O. OR. LENGTH. GT. 1728 1  CALL  EXIT 

IF  (LENGTH. LE. 63)  GO  TO  10  '  *  - 

CALCULATE  MAKE  UP  CODE  INDEX,  CODE,  LENGTH 
AND  WRITE  TO  CODE  LINE 

.  INDEX*  LENGTH/64  *-64  . .  ■  - .  — 

MCOD£= CODE! 3, INDEX, POLAR) 

MLENG=C0DE(1 , INDEX .POLAR ) 

CALL  M 1 23! MCODE , CDBUF , CDELCT*! , MLENG 1  "  - 

CDELCT  =C  DEL  CT  -t-MLENG 
CDDATA=CODATA  +  ML£NG 

CALCULATE  TERMINATING  CODE  INDEX,  CODE,  LENGTH 
-  AND  ADD  TO  CODE  LINE  . 

10  CONTINUE 

INDEX* MOD (LENGTH, 64) +  1 

„  UNCLASSIFIED 


I  'jgteito  V~'  -  '■  ‘  ‘  - 


■\ 


V  ;<  *  *  ^>ivf  ^  ,$?& 


UNCLASSIFIED 

TCCDc=C0DE(3. INDEX, POLAR) 

TLENG=CQDE( 1 , INDEX, POLAR) 

CALL  M  IR3(TC3DE»  CDBUF ,  CDELC  T  *1  ,  TLE  NG  ) 

COeLCT -=COELCT  *TLENG 
CDOATA*CDDATA«-TLENG 
C 

RE  TURN 
END 

SU3KCUTINE  ERRMES ! PELBUF, OTBUF, PEL MAX, VRES, ERRCNT ) 

C 

IMPLICIT  INTEGER(A-Z) 

REAL  E  SF 

C  *******  LABELED  COMMON  /G32BIT/  ******* 

c 

COMMON  /G32  8I  T/MASK  (  32  )  .CCMASM  32  )  ,lie  IT  <32  )  .LZBIT  (  32) 

INTEGER  MASK, COMASK .LIBIT, LZBIT 
C 

C  *****  **  *♦ **  **  ********  * ►  FILE  DEFINITIONS  ******************** 

C 

COMMON/FIlES/TERM.LPFIL.PElFIL. otfil, erfil 

c 

DIMENSION  PELBUF!  60  )  »  OTBUF(60) 

COMMON/LOGIC/SEARCH  ,Dt  AG 
LOGICAL  SEARCH, DIAG 
C 

c*********** ************* ***  BEGIN  PROGRAM  **************************** 

C 

REWIND  PELFIL 
REWIND  3  IFIL 
ERROR=0 

OTEL  W= (PELMAX+32-1  ) /32 
QT  LN  CT  =0 
C 

C  READ  AN  ERROR  FREE  LINE 
C 

100  CONTINUE 

RE  AO (P  ELF IL . END=600 , ERR=  BOO )  I NLNNO , I NELCT .PELBUF 
IF (MOD (I NLNNO-1 . VRES) .NE.O )  GO  TO  100 

C  -  ... 

C  READ  AN  ERROR-CORRUPTED  LINE 
C 

200  CONTINUE 

RE  AD  (OTF I  L  •  END=500  •  ERR=800  )  OTLNNO  .OTELCT  ,  CTBUF 
OTLNCT=CTLNCT*l 
300  CONTINUE 
C 

C  COUNT  DIFFERENCES  BETWEEN  TRANSMITTED  AND  RECEIVED  LINES 
C 

DQ  450  1=1, OTELW 

IF  (OTBUF (I) .EQ.PELBUF! 1)1  GO  TO  450 
IF!  .NOT.DIAG)  GO  TO  420 

WRITE! TERM, 410 )  INLNNO , QTLNNC , I .PELBUF 11 ) .OTBUF ! I ) 

410  FQRMhT  (318, 2Z1 2) 

420  CONTINUE 

DO  440  J= 1 , 32  .  •  -  -  . 

IF(I4B(3  TBUF  < I ) , J , 1 ) .NE. I 4B( PELBUF! I ) , J. 1 > )  ER R 0 R= ERROR +  1 
440  CONTINUE 
450  CONTINUE 

IF  (OTLNNO-I NLNNO)  200.100,580 
C 

C  ERROR  LINE  NUMBER  GREATER  THAN  GOOD  LINE  NUMBER? 

C  COUNT  DIFFERENCES  BETWEEN  GOOD  AND  ALL  WHITE  LINE 

C 

500  CONTINUE 

00  550  1=1, OTELW 

IF ( PELBUF ( I )  .EO.O )  GO  TO  550  - 

IF!. NOT. DIAG)  GO  TO  520 

WRITE! TERM. 410)  I NLNNO, OTLNNO, I . PELBUF ( I ), OTBUF ( I) 

520  CONTINUE 

DO  540  J  =  l  » 32 

IF  (  I4B(PELBUF!  1  )  .  J,  1  )  .NE.O)  ERROR=ERRORM 
540  CONTINUE 
550  CONTINUE 
C 

580  RE  AD ( PELF IL  «  END=60  0  «  ERR=80  0 )  INLNNO. INELCT .PELBUF 
1F(M0D(INLNN0-1 .VRES) .NE.O)  GO  TO  580 
C 

GO  TO  300 
C 

C  CALCULATE  ERROR  SENSITIVITY  FACTOR 
C 

600  CONTINUE 


I aSefr/v:'-; 


UNCLASSIFIED 


UNCLASSIFIED 

ESF=0. 

IF  (ERRCNT »«.£•  0)  GO  TO  650 
5SF=FLOAT(ERROR)/FLOAT (ERRCNT ) 

650  CONTINUE 
C 

KR  ITEt  LPF IL  *700)  ERROR , ERRCNT , ESF, OTLNCT 
700  FORMAT ('ONUMBER  0-  INCORRECT  PELS  =',110/ 

*  • 0 NUMBER  OF  BITS  IN  ERROR  TRANSMITTED  =',liU/ 

*  •  0ERR3R  SENSITIVITY  FACTOR  =  ',F12.4/ 

*  'OTOTAL  NUMBER  OF  OUTPUT  LINES  PROCESSED  =  ».I8) 

C 

RETURN 

600  CONTINUE 
STOP  800 

END  -  -  - 

SUBROUTINE  STATS ( LENGT H, INLNCT. DIAG) 

IMPLICIT  INTEGER(A-Z) 

C 

INTEGER  M  TT  ( 5  ) »ITT( 2  *5 ) » LENGTH! INLNCT ) 

REAL  STT  (  2,  5)  «  SUM*  SUMSQ 
LOGICAL  DIAG 

C***********************  FILE  DEFINITIONS  ******************** 

C 

COMMON/FILES/TERM.LPFIL.PELFIL.OTFIL.ERFIL 

c 

DATA  MTT/0.24,48.96,192, 

c 

c* ******  **************** *8 EG IN  PRO GRAM ************************** ******** 

C 

DO  300  1*1,5 

-  ITT ( 1 • I)*10000  - - - . 

I TTC  2,1)  *0 
SUM=  0  « 

SUMSQ=0. 

DO  100  J=l, INLNCT 
C 

C  FIND  FILLED  LINE  LENGTH 
C 

LEN=MAXO  (LENGTH!  J).MTT(I)  )  -  - . 

IF(DIAG)  *RI TE ( TERM , 50 )  LEN 
00  FORMAT  (18) 

C 

C  FIND  MINIMUM  LINE  LENGTH 
C 

ITT<  1 .  I  )  =  MI  N0(  LEN,  I  TT(  1  »  I  )  ) 

C 

C  F I ND  MAXIMUM  LINE  LENGTH  . .  -• 

C 

ITT (2, I)*MAXO(LEN,  ITT(2, I ) ) 

C 

C  FIND  SUM  OF  LENGTHS 

C  ...  .... 

SUM=  SUM*FLOAT(  LEN) 

SUMSQ=SUMSC>(FLOAT(LEN ) ) **2 

-  100  CONTINUE  -  ...  . . -  -  -  . 

C 

C  FIND  SAMPLE  MEAN  ANO  STANDARD  DEVIATION 
C 

STT ( 1 , I)=SUM/FLOAT(  INLNCT  ) 

STT(2, I)=3QRT( ( SUMSQ" (SUM* *2  I/FLOAT ( INLNCT ) )/FL OAT ( INLNCT-1 ) ) 

300  CONTINUE 
C 

.  HR  ITE(  LPF  IL,400)(I  TT<  1,1  >*1  =  1,5)  -  -  . 

400  FORMAT! 

*•0  MINIMUM  TRANSMISSION  TIME  (4800  BPS)'/ 

"  **  CODED  LINE'/  ‘  .  -  .  .. 

*•  LENGTH  0  MS  5  MS  10  MS  20  MS  40  MS'/ 

.*•  .  STATISTICS)'//  . . 

*•  MINIMUM', 10X, 5(18)//) 

WRITE<  LPFIL*410) (I TT (2,1 ) ,1=1 ,5) 

•■•  •■410  FO  RM  AT  (  .  -  -  - - - -  ■  ■ 

*•  MAXIMUM* ,1  OX, 5 (18)//) 

WRITE(L»FIL.420)(STT( l .1 ) .1=1 ,5) 

-■■420  FORMAT  C  -  -  “ 

*•  SAMPLE  MEAN*  ,3X,5(F8«2) //) 

.WR  IT  E(  LPFIL  ,  430  )  (STT(2  »  I),  1=1,5) 

430  FORMAT ( 

**  STANDARD  DEVI  A  TION  •  ,  2X  ,5(F8.  2)  ) 

RE  TURN 
END 

0  EfC  OF  DCEC  UPRINT  PROGRAM  LINES  PRINTED=  1638 
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oietLAP  WITH 
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APPENDIX  P 

COMPUTER  PROGRAM  CODE  LISTING 
AT&T  ALGORITHM 


«> 

V 

\ 

*1 

l 

i- 


i 

k 


non  non  non  r>r»r»  ono  r>o  e,  no  r.  t 


1/  iWkn***)  »  -  » 


AMI  OP  Ov.:C  )t*M  1NT  PROGRAM  0  SNA  **0003  I  ,UTl  .FfKT 

PRUuHAM 

M*»LiC  ifTTUEGCM!  A-2) 

H&AL  CPS.  CP4.  nMUTL 

•••♦••  LMtCLS)  CO  <MOH  /G32UIT/  #»♦#*♦« 

C JMMCN  /3  32  21  T/MASK!  22  I.CUMACK!  3 2 ) . L 1 M 1 T ( 2 ? ) »L2 H 1 7 !  221 
I.4TL  iCb  MAGK.CC  MA  S*  .Li  iltl  .L/llt" 

COMMON/  lUPP/PDLilUPltO.  2  )  •  CDHUT  I  .TAC  >  .GTHUP!  60.2  )  * 

•  STPtlUF!  i.40  )  .  6T4T( ’OOP)  , 

•  P  l  N  I  2  »  M 04 ,  2  )  , POT 12.P6*.?).PT1MAXC2) .PTOWAX!  2 > 
CU  MMJN/MUF*  /C3L»e(  3 .92  I  2)  .C03C VO!  2  ,  i 3  I 

CO^MCN/EA AV/JHRORS!  2300  ) 

»»••••»•*•••»«•*«*•»*»  F|Lt!  DEFINITIONS  ••♦•44*44***444W4*** 


cummjn/* ilis/term.lpf il.pslf il.  orr il. *pf il 

•»*•»»*••«*•»••***«*  LAUELLZO  COMMON  VARIABLE*  ••••••••••••••••• 

CJ  MMUM/l  VAR /PEL  MAX.  VRE  S , EPHA SS . C mrm AX  .fRRMCO . L 1 N *4X  ,K 
C JMMJN/PV AR/IN.NNS .GTLNNO.CTtLW  •  I  N“  LO  •  CDf  L  °  »  OT  **  LP  »  CDE  L  W  . 

•  CDCLCT, 1NCLCT .TCDATA.TCDEL.ERF  PNT . E FRCFF, EFRL JM , 

•  ERRCNT. INLNCT, CONSFC .LNNGUF . 

*  INCOD.  JNREF  .CTCOO.OTRLF.STFOIT  . 

*  PTAO.PTOO 

CC  AON/ 1  CHAR/ 00.  I  I  .  MM,  TT  .NN,  W 

CU  -.MU.J/.OGl  C/ SEARCH  .01  A3.  SYNC  .LSS,  MR  I  TE.  ZERO.  LEU  .CKOL.OHE. 
•CONECT 

LOGICAL  iC  ARCH, 01  AO.  SYNC » WR I T 2 . LEF T .  CPCCL . ONE . C CNECT 

R”AJ  INPUT  PARAMETERS 
>>0  WRITE!  TERM,  100) 

103  PC RM AT  (•  »PARAMuT2RS I  INPUT(«I).  CR  DEFAULT! »D )?•  ) 

RE A01TSHM.1 10.ERN*90)  INSW 
1  I  0  FORMAT  ! A  I  ) 

IF  !  INSW.  EO  *  00  )  GO  TO  315 
IF  1  INSW.NE.I  I)  GO  TO  90 

A2A 0  DIAGNOSTIC  SWITCH 

114  WRITE  l  TERM.  M3) 

US  FORMAT! • AOIAGNOSTIC  PRINTOUT?  IV  CR  N):  •) 

REAiJlTERM.UO)  INSW 

IF  <  I  NSW.  £0.  YY  )  GO  TO  116 

IF !  IN5W.2J.NN  )  GO  TO  120 

GO  TJ  1 1 4  •  •  * . .  • 

l  1  6  CONTI  IUE 

OIAG-.TRJ*. 

RE  AO  MA.XIMJM  NUMBER  OF  PELS  PER  LINE 


120 
1J0 
I  40 


no 


CONTINUE 
WRITE! TERM, 130) 

FORMAT  !*4SNT2R  MAXIMUM 
RE  AO !  T  EA  M  »  1  40  .ERR»1  20) 
FOR  MAT ! I  4 ) 


NUMBER 

PELMAX 


OF  PCLS-  PEP  LINE!  •  > 


IF (PEL  MAX .GC. 1 .AN0.PELMAX.LE.1  72  0) 


GO  TO  160 


WR  I  T  £ ! TER  M, 1 30 )  PELMAX 
FORMAT!1  ONUMULR  OUT  OF 
GO  TO  120 


RANGE  !»*.J6.*>»> 


RE  AO  VERTICAL  SAMPLING 


160  CONTINUE  .  . 

W«  ITS!  TERM, 173) 

173  FORMAT t  * tEN TER  VERTICAL  SAMPLING!  • 
READ!  TERM  .1  t)0  » £  MR* 1  60)  VRES 
HO  FQRMATU2) 

IF IVRSS.GE. 1. ANO.VRES.LI.IO )  GO  TO 
-  WR  ITS! TERM,  150 )  VRES 
GO  TO  160 


190 


R?AO  PARAMETER  K 


190  CONTINUE 

WRITE! TERM, 192 ) 

192  FORMAT!*  »  ENTER  PARAMETER  Kl  •) 

RE  AO  !T  CR  M  ,  1  AO  .  ERP*  190)  K  - 

IF(K«G2.1 • AND. X.LE . 3030 )  GO  TO  20? 
WRITS! TERM,  150)  K 
GO  TO  190 


P-1 


UNCLASSIFtKO 


..  ..•*  “  ■"**  'GtTSK.VT-**^ 


UINV.L.M  J  JiriC’J 


AD  £I.OS  HA  TT  £HN  PHASE 


200  CONTI  -JUc 

rtAlTElTERM, 210) 

210  FORMAT  {•  i£02R  ERROR  PATTERN  PHASE:  •) 
RGADtTER * . 223.rRR*20P)  EPHASL 
22  0  FORMAT  (It  ) 

IF  (!10<<A3E  .CC.O  .  AND.CPHASE  .Lt  .  3)  GC  TC  -40 
«f,ITd  T~  ,  A.  150  )  -"MASH 
GO  TO  200 


R2A0  MINIMUM  CJMPRCSScD  LINE  LENGTH 


CONTINUE 

MR!  TEITER  A. 280) 

FORMAT  <*  *2N  TER  MINIMUM  COMPRESSES  LIM;  LE.Nv.TH , 
RE  AD ( T  u.R  M  •  1  40  *ERR=240  )  CMPMAX 

IF!  C  APMA*  .GE.  O.AND.  CMPMAX. LE  *1  723)  GC  TC  2  20 
*R  ITE!  TEA  M,  1  50  >  CMPMAX 
GO  70  240 


R-.AO  NJMslER  OF  SCAN  LINGS  TO  U£  PROCESSED 
320  CONTINUE 

ARI T - ( TERM, 230  > 

230  FORMAT  (♦  A.NJMtiEK  2F  SCAN  LINES  T  3  f 
READ!  TEMM  ,  1  40  »  s.NR  =  320  )  L  I NMA X 
IF  (LINMAX  •  U  t~  «  l  . AND. L INMAX  .LE.3000) 

AN  I TE  (  TERM,  150)  -  I  NMA X 
GC  TU  320 


PROCESSED3  ? 


TO  250 


MG  AO  U.M1JR 


CONTINUE 

wR I TE ( TER  M, 250  ) 

FORAhTC  SiERROR  MCDCs?  (  Ma .MANUAL  •  T  =  T  APE  *  Ns  NO  ERRORS  )  *  ) 
K2AO<T_AM.l  10.ERR  =  230>  EFRMGO 
IF  (ERRMJD.EO.  MM)  GO  TO  300 

1FC_MRA20.E0.TT)  GO  TO  315  . 

IF  {  EM  TMOO  .NE.N.N)  GO  T  J  2ttC 
GO  TU  250 


READ  ERROR  LUCA T IONS 


303  CONTINUE 
ERPt-CAal 

205  R-:ao<TERM  ,  1  40  )  CRRORS(SRRLIM  )  •  • 

IF <GRR0K$(£RRLlM).£0.5595 )  GC  TO  310 
ERRL  IMs  EM  ML  IM*l 
GO  TU  305 
310  CONTINUE 

ERSLI.AsERML  1M-1 
GO  TO  350 


READ  ERROR  T.A»£  FILE"  AND  OPEN 


315  CONTINJE 


ERRORS! ERFL  I M ) 


ERRLl A=1 

READ  (  ERF  I L*  31  5  > EN3«31  7  )  ERRORS  (  CRF.L  I M  ) 

ERRL J M=ERRLIM*i 

316  RE  AO!  ERF  IL  *  31  3  «  END3  2  1  7 )  ERRORS!  ERFL  1  M  ) 

313  FORMAT  (116)  ' 

EHRO  IS  ( ER RL  IM  )s ERRORS!  ERRLl M  J  ♦  ERRORS  (  r. «RL1  M-l  > 
ERRLl  M-'ERRUMFl  .  .  .. 

GO  TO  -il  0 

217  ERRLIM--*ERRL  IM-1 


CONI  IN UE 


360  CONTINUE  '  - 

ARITE  INPJT  PARAMETERS 


AR  ITE( L°F IL  *  400 )  PELMA X , VRE 5 . K , S PHA SE . CMPM AX , L I NM AX 
400  FORMAT (» 1 IN=UT  PARAMETERS:*/ 

*  »0  MAXI  MUM  NUMUER  OF  PELS  PER  LINE=*.I6/ 

*  *  0  VERT  I CA_  SAMPLING!  N* • » I  4/ 

*  • 0  PARAMETER  X  =  *  ,  14/ 

*  'OERROR  PATTERN  PHASE  =*.14/  ‘  '  . . 

*  *  0  MI Nl MUM  COMPRESSED  LINE  LENGTH  3,.I4»*  QITS'/ 

*  • ONU MBHR  OF  SCAN  LINES  TO  HE  PROCESSED  *'.I6> 

IF  (  SRRMOD  »E  G.NN  )  *R  IT£  (LPF  IL  *  4’  0  > 

UNCLASSIFIED 

P-2 


iffs sn 


't  ig  w  iTWTcK7T***:  ’REFvr,F**"'’1' 


c-  xm*'**  ;*•  » '■’T-T?*/”’*  ) 


’  v  ^  J7f^V,‘"1  * 


-'vjr7J*'WTiP,"';rv  wttp^r*  » *,"a5‘JK,F?T  '’'JWT-  *  w 


U(Nv,t.*o  jiri  c.u 

<♦13  PJAN4T  (»OND  ERRORS  lNi£RT~DM 

„  SSTM8WKI  •«-«■«-• 

PRC*  f.RRCN  TAPS*) 

c  miMii's 


f 

L 


300 


850 


\- 

C 

c 


tcoel=  o 

T v  DmT  4*0 
ER9PNT*1 
ERRCNT*0 
lNLNCT=0 

£  TR  JFF  *S»HA  SE*  1  024 
CDCLCT  =3  2 

ctslp-i 

COElP*  32  ♦■  I 
C0N3£;=1 
INRSFs 1 
INCCD*2 
OTTEFsl 
OT  COO*  2 

CWPWAX=WAX3  (CMPNAX  , 
aT  AO*  1 
PT  30  =  1 

P  ri 4AX( l  )  ao 
Pf  IWAX<2)=0 
p TOM AX  11  > *0 
PT  3  <*A X  (  2)  *0 
STF31T=0 

00  300  1=  1,243 
5TF  3UF  ( I  )  *3 
CJ.lJF(  1  )  =  0 
CDNTlNJE 
0  3  850  1*1,60 
OT dJF {  I,  D  TR  EF  )  =  Q 
QT0UF ( I , JTC  20 ) *0 
PEL3UF  <  I  ,  INREF)=0 
PELJJFH  ,  INCUO  1  =  0 
CONTINUE 
SEARCrt=.TRU£. 

SYNC=.  FALSE. 
WRIT£*.=  AlSE. 


13) 


i ) 

■i 


search  *coe:  look  fof  eol  bit-dy-qit 


900  continue 

CALL  GETllH  12,*QDE ,LBITS,L) 
GO  TC  <91  0,930,920, 920  ), MCDE. 
STOP  900 
910  CONTINUE 


EOL  NUT  FOUND;  ADVANCE  POINTER  AND  TRY  AGAIN 


CO£LP=CDElPM 
GO  TO  900 
920  CONTINUE 
STOP  920 
930  CONTINUE 

EOL  FUUNO 


C 

C 


SEARCH*. FALSE. 

CDEuP=  CDELPH. 

IF(^PITE)  GO  TO  935 
WRITE*. TRUE. 

GC  TO  960 
935  CONTINUE 

S-^-°^^_?£^00£-LINE  TO  0  AND  WRITE  OUT . 

#OU  J - j i 60 

OT BJF (  I.OTCOD  )  =  0 
CONTINUE 

CyLNNO=LN.NO BF^1*'''*^0  *^-*-^**  ^  OTOUF(  I  , CTCOD)  ,1=1  ,60) 
CONTINUE 

IF  (NODE-  2  )9  65,  1000,  900 

STOP  965  . — -  _ _  _ 

CONTINUE  '  ’  “  " 


950 


960 

965 
1  000 


PERFQRW  DECODE  OF  A  CCMPLETE  LINE 


P-3 


UNCLASSIFIED 


ivrltiidiifilfiaiirr 


_ Ll  it  v- I- 


unclassified 


C  FIRST, SET  3JTPUT  3UFFER  TO  WHI TE 
C  (ONLY  -3L  XCK  RUN 6  WILL  Hi  INSETTED) 
C 

00  1010  I a 1,60 
0T3UF<  I. JTCOO)*0 

ioio  continue 
c 

J'JOE  <*25 
or  slp* i 

PT4J=l 
PT  30*  1 


r 

”1020  CONTINUE 

C ALL  TW03TL  (  INOEX  .  CCLOF.,  STATUS,!.) 

GOTO  (10 JO, 1  070,1 070, 1 035,1 032 ) «STA TVS . 

C  12  2*45 

5T  CP  1000 
C 

C  PJN  ADDED;  CHECK  -ENGTH  CF  OUTPUT  LINE 
C 

1030  CONTINUE 
ONE*  * T RUE • 

IF (OTELP-1-^ELMAX)  1031,1031,1050 

1031  CONTINUE 

I NOcX  *25  . 

GO  TO  1020 
C 

C  11  ZEROED  detected;  check  for  fill  and  lcok  for  ECL 

c 

1032  CONTINUE 

COELP*COSLP«-L  •  - . — - - - 

ZERO*— 1 

1033  CONTINUE  .  ...  _  . 

Z£3D*ZERDM 

CALL  CET. atl.MQOE.LBITS.L) 

C  •  . . - 

GO  TO  (1034, 10 50, 10 50, 1050), MODE 


C 

C  'CHECK  FOR  FILL'  - - -  - 

C 

1034  CONTINUE  .  _  . 

C 

rT  “I  LP  4*1 

IF(L5ITs7eo.O)  GO  TC  1033  - . 

IF(ZERO.-c.O.ANO.OTELP.LE.l)  GO  TO  1040 


C 

C  -EOL  FOUNO - - - 

C 

GD  TO  1050  _  __  _ 

C 

C  EOL  DETECTED 

1035  CONTINUE 

CDELP=CDELP*L 

-  -  -  STATUS*4 -  - 

1040  CONTINUE 

IF(OTELP.LE.l)  CON  SEC*  CON  SEC  <■  1 
IF (CONScC -2 >1080,1000, 2000 
C 

C-  -  PROBLEMS. PROBLEMS  -  — .  . 

C 


1050  STOP  1050 

LINE  LENGTH  CORRECT,  EOL  DETECTEO  FRQ°ERLY ;  WRITE  OUTPUT  LINE 


C 

C 

c 


1060  CONTINUE  . . . .  ' 

WRITE(DTFIL)OTLNNO,PELMAX,(OTBUF(I,CTCCO),I*1  ,60) 

CTLNNO=LNN 03F  - - 

CONSEC*l 

IF  (DNS)  SYNC*.  TRUE. 

-  TEMPsOTREF  -  - 

OTREF=OTC 00 

OT  COD*TE4P  _ _ _ _ _ 

GO  TO  <000  '  ~ . . 

-  -  LINE  TOO  LONG  OR  NO- HATCH- - 

1070  CONTINUE 

.  ■WRITE*. FALSE. - 

C  .  .  LINE  SHORT  _.  _  ...  _ _ _  _ 

C 


P-U 


UNCLASSIFIED 


•A?  uu  .  V .- 


. 'iiWhaMfefc^-- 


HP 

r 


”?7  •f^jk'f  p-r-w ' 


w^Twf TT7~>»i--wyT«(y  wjp.  «•”'  u  * ' 


^-’T"’ . . 


»  y>  '  - 


l 


l- 


t 

V 


o  .'•v.wM  a  jiriLJ 


1010  CD  IT  U JE 

IP (  .NJT. SYNC)  GO  TJ  1 C  90 
C 

C  *R  1  r  1  LA  3T  GOOD  LINZ 

v*R  I  rsi  JTP  IL  )  GTi_NMD.PELMAX,<  OTOUFt  I  .QTRSF)  ,Jvi  ,60) 

SY  NCa.FALS*!. 

GO  T:j  1110 

io;o  cc  MTINJZ 
c 

C  wR ITE  A  WHI TE  LINE 
C 

00  1100  1*1  .  sc 

1  100  GTSUF<  1,  0  TCOO  )  =  0 

V»RITZ(UTFIL)  OTLNNU  .PEL-MAX,  (OTOUf<  I.OTCOD).I*l  .601 
1110  JTL  MNO»LNNOBF 

IF  (ST  ITUS. £0.4 )  GO  TO  1000 
3ZARCH».TRUZ. 

GO  TO  90  0 
C 

C  CNO  OF  MESSAGE 
C 

2000  CONTINUE  ...  - 

WRITE!  L3F  IL.2010)  CUNScC 

2010  F  IIMhTCOCNO  OF  MESSAGE  DETECTED  ('.IS,*  EOL  •  •  S  )  *  ) 

C 

C  REPOST  COMPRESSION  FACTOR,  ERKGR  SENSITIVITY  FACTOR. BIT  ERROR  RATE 
C 

ERRATZ*F_OAT( EKRCNT )/FL0AT( TCOEL ) 

MR IT£ ( LPF 1 L .2020 )  T  CD  EL «  T  COAT  A, STFS  IT . INLNCT .ERRATc 
2020  FORMAT  (•  OTO  TAL  NUMBER  OF  CODED  3TTS  *  '.lb/ 

*  'OTOTAL  NUMBER  OF  CODED  DATA  BITS  *  *.18/ 

*  *0  TOTAL  NUMBER  OF  STUFFING  BITS  =<  '.18/ 

*  'OTOTAL  NUMBER  OF  INPUT  LINES  PROCESSED  *  '.18/ 

*  *03IT  ERROR  RATE  *  ».G14.6) 


I 


CALL  STAT3(ST AT, INLNCT. DIAG) 

CF3*FLOAT( PEL MAT) AFLOAT ( I NLNCT )/FLD AT (TCDEL > 
CF4»FLOAT  (PSLMAX)*FLCAT( INLNCT > /FLO AT { TCDA TA ) 

C 

WR  ITE  ( LJF IL , 2  020)  CF3.CF4 

2030  cO  R  MAT  CO  COMPRESSION  FACTOR  FOR  G3  MACHINE  ( CF  3  ) 
*  ^COMPRESSION  FACTOR  FOR  G4  MACHINE  <  CF4  ) 

C  CALL  E  RRMES  ( PEL  B’JF  .  OT  BUF  .  PEL  MAX  »  VTES  »  ERRCNT  ) 

C 

'  ST  CP  . - . 

E  N  O 

SJBROUTIN  E  GETLd(LB IT5.MCOE ,WRD.L> 

implicit  integer! a-z) 

C*******  LABELED  COMMON  /G32BIT/  **4**44 


*• »F8. 4/ 
=  •  . F8 . 4  ) 


common  /  3  32  81  T /MASK  <32  )  ,CCMASK<32)  ,LI8IT(32),L28IT(32) 

INTEGER  MASK.  COMASK  ,  i_  I  6 1  T  ,LZB  I  T 

C  •  .  *  -  — . .  - 

C  D  MM ON /BUFF /PEL BUF  (60.2 ) ,CD6UF(  240  ) ,CTBUF(60 .2 )  . 

*  STFRUF<  240  ) ,  STAT(2000), 

*  PIN  (2 .864. 2)  .  POT  (2 . 864.2  )  .  FT  I  MAX  (  2  )  ,  FTC  MAX  (2  ) 

C  0  M MON /HUFF /CC  DE (3*92.2) .CODERD (3. 93) 

C  QMMCN/ERAY /ERRORS ( 250  0 ) 

C*********4***********  labelled  common  variables  ********************** 

c 

COMMON/I VAR/PHLMAX, VRES. EPHASe.CMPMAX .ERRMCO.L INMAX ,K 
CO  M.MQN  /p  V  AR  /  I  N«  NNO  .  OTLNNC  «OTEL  *  »INELP»CDELP.GTELP  »CDEL W  • 

*  CDELCT , INELCT .TCDATA. TCDEL. ERRPNT. ERRCFF.ERRLIM, 

*  ERRCNT, INLNCT. CONSEC  .LNNC8F  , 

*  IN CO  Dr INREF.OTCOD.CTREF, STF9IT. 

.  *  PTA0.PT8Q  . 

COMMON n CHAR/ DO, I I.MM.TT.NN, YY 

COMMUN/LOGI  C/ SEARCH,  DIAS.  SYNC.  LSS.  WRITE.  ZERO.  LEFT. CHCOL.ONc., 

-  •  -  ACtONECT  .  . . .  . . 

LOGICAL  SEARCH, DI AG. SYNC .WRITE. LEFT, CHCOL. ONE. CCNECT 

£* ************ ***************  BEGIN  PROGRAM  *************************** 

C 

MODE  =  4 


£ 

■* 

i 

| 


on  o  n  <'■  n  non  oonon  non 


T'7v« 


-*-n*  ■■  A--t-  y -* 


UNCLASSIFIED 


IF<LJI  TS*-CDSLP-1  .L5.CJCLCT  )  GJ  TC  200 
IF  <CJCLCT-C  UcLPM)  170,140.160 
170  STOP  1 70 
103  CO  47IMUE 

5TCJJF(  1  )=:  43<  STF3JF.CDLLP.COFLCT-C0ruc»*l  ) 

190  CONTINUE 

CP£^  J*  22-  (C  JElCT-CDELP  ) 

CALL.  E  (CD  )  > 

203  CONTINUE 

*H0=UJI  STFrtUF.CDZLP.LrOITS) 
l.  *  LU  i  T  3 

I  F  (  L  •  E  ).l  1.  AN  D  •  *9  D  •  ED  •  0  )  3C  TO  4  OC 
IF  (c  .£  2.1  2.  AN  J.wRD.EQ.CODel  3,42.  I )  )  00  TO  300 
253  CONTINUE  ... 

NO  2c.  *1 
AS  TUP  N 
303  CONTINUE 
40DE»2 
PS  TURN 

400  CONTINUE 
4032  =3 
RETURN 
END 

SU3RJJTIN;  ENCODd 
C 

I4PlICIT  1 NTSGER ( A- 2 1 

c 

C*»**M«  LABELED  C04NUN  /G323IT/  ******* 

C 

C  JNN  ON  /3  32 31  T/NASX  (  32  )  .CCMASM  32)  .LI«IT<22>  .LZeiT  {  32) 
INTEGER  NA3K.CUNASK ,L I  31 T  .LZBIT 
C 

CO  N  4DN  /dUFF/PcL  OJF  (  t>0 , 2)  ,COUJF(  24C  )  .OTeUF  (  50.2  • 

*  STF  rlUF  <  240  ).  ST  AT  (3000  )  . 

•  PIN( 2.864. 2)  •  POT  (2. -564.2)  .FT1MAM2)  .PTC  MAX  (  2  ) 
C  ON  4  ON /HJFF /CD ->E<  3.92. 2  ),  COD  £RO<  2.92  ) 

CONN  JN/ER  AY /ERRORS  <2S  30) 

c«*****«  ****************  Fl_s  DEFINITIONS  ***********  ********* 

c 

CJN.NON/=lLEo/TEPN,LPFIL.PELF  IL.CTF  I  L  . '  RF  I  L 

LAOElLEO  CUM  N  ON  V»RI»eLES  ************** 


CO  4.NUN/I  V  AR/PEUNAX  ,  VRES  •  EPHAS  £  .  CMP  4 1  x  ,  ERRMCD  .  L  Inmax  ,K 
C  J4  4UN/3VAR/I  '■L.NND.CTLNNC  .  OTCL  «  .  IT  JLP.C  OEl.  P.  ET  CL°  .CDELrt  . 

*  -  CDEUCT,  INELCT.TCDATA.TCDSL  .ERRANT, ERRCFF.ERRLIM, 

*  SRRCNT.  INi_NCT  .CCNSEC  .LNNCEF  • 

*  INCDD . INREF .CTCCO.CTRFF . STF3IT. 

*  PTAO.PTdO 

COM.NON/ICNAR/OU,  i  I  .  NN.TT.NN.YY 

CONN  DN/_  001  C/SEARCM.DI  A  0.  SYNC.  L  S3.  »KI  TE  .  ZERO  .LEFT  .CHCCL. ONE  . 
*CGNEC7 

LOGICAL  SEARCH, 01  AG. SYNC. WKI T£ .LEF T , C HCOL . ONE , C CNEC T 


OEGIN  PROGRAM  ******************** 


INITIALIZE  VARIAULEs 

COELCT  *32 

CU0aTA=0 

DO  SO  1=2,240 

CDHUFI  I)=0  ' 

ST  FdUF (  I  )=0 
50  CONTINUE 

READ  INPUT  PICTJRE  FILE 

100  CONTINUE 

RE  AO  {  °  ELP  IL  ,EN  0=120  .ERRsf.OO  ) 

■*  INlNNO,  I  MELCT  ,  (  P5L3UF  (  I  .INCOD)  .  1  =  1  .60  ) 
IF(MJD(INI_NN0-1',VRES).NZ.0)  GO  TO  100 
IF <!  JELCT.LT. PELMAX )  CALL  EXIT 
INLNCT=INLNCT*1 

LOAD  UUTPJT  uINS  numjf.r  buffer 
lNV  =  INLNNO 

IF(5LARCM)JTL'J*rj  =  LNNC‘JF  “ 

I  -  < i NLNNO.LE.LI NMAX )  30  TC  140  • 

«*  1 1  r  c  O  I  X  C  CL  •  3 


P-6 


UNCLASSIF  ISO 


non  0^*0  non  ooo  ooo  o  no  ono  non  n<%n 


■  ■  ~  — -'l"55p’«!W<IW»'V»»\av  «”".> - PWr'''"-»  "T— >~T-  r^r.  *,-<•  -.-r-r-^T^v— ■=, 


UNCLASSIFIED 


120  CONTINUE 

00  ISO  i *1 ,  n 

Call  U2SIC00E<3.92.1 1  ,  CD3UF  » CDELC  T  +  1  ,C0CE(1 ,92.11) 
CDELCT  *CDEl  CT  +CODE (  1 . 92. 1  1 
1J0  CONTINUE 

30  13  3  I*l»o 
STFB JF(I ) sC JOUF { I) 

IS  5  CONT  INUc 
GO  TO  400 

FIRST  OF  <  LINES? 

140  CONTINUE 

IF  (  403<I  4L4CT-1  ,K)  .NE.OI  SC  TO  600 

SET  INFERENCE  LINE  POINTERS  TC  ZERO 

PTIMAXU  NR£F)  =  1 

PI N ( l » 1 » INR£F)=PELMAX+4 

’INU.1,1  +RHF)*PELMAX+5 


7  20-01  MENSIONAL  COOING 
600  CONTINUE 
WRITE  ONE  SOL 

CALL  M  12  J  (CODE  (3.92.1)  .COOUF .CDELC T*1  .CCDEU  ,92 .1  )  > 
CDELCT=CD£LCT+CU0£(1 ,92, 1  ) 

INITIALIZE 

ENCC.NT=0 
CONcCT®.  TRU  £• 

3TI=1 

1*1 

o3  0  CONTI  NUE 

PEL*  I4«(PELBUF<  1  ,  INCCO  )  .  I  .  1  ) 

IF <P£L)S4U. 050,660 
040  STOP  640 

BLACK  3EL  not  fou.no 
650  CONTINUE 

1=14-1 

IF(i-(PcL.M«X  +  l  ))  630,710,710 

BLACK  PEL  FOUND;  RECORD  AND  LOOK  FCR  WHITE  PEL 

660  CONTINUE 

PIN  (  1  ,PT  I  .INC  001*1 

1=14-1  -  •  •• 

670  CONTINUE 

PEL=I43(PEL  aUF(l  .  INC03  1.  I.l  1 
IF  ( PEL )o8  0,  700,690 
680  ST  CP  680 

WHITS  PEL  NOT  FOUND 

090  CONTINUE 

1=  1  +  1 

IF( I .ST. ( PELMAX41 1 1  STOP  690 
GO  TO  670 

WHITE  PEL  FOJNO;  RECORD  END  OF  3LACK  RUN 

700  CONTINUE 

PIN<  2.PTI  ,I.NCOD)=I 
OT I=PT  141 
1  =  1  +  1 

IF  (I -P=_ MAX)  530,630,71  0 
END  OF  LINE 
710  CONTINUE 

PIN(  l.PTI  »INC0D)=PELMAX+4 
PINI2.PT I . I  NCOS )=PcLMAX+5 
PT  I  MAX  C I NCQD 1 =PTI 
IF(  .NOT.DIA 31G0  TO  720 

WRITE (TERM, 71 5) ( <PIN< I , J, INCOD ) , I = 1 , 2 ) . J= l , PT I ) 


P-7. 


UNCLASSIFIED 


u^lmssi  r  i  cv 


71  5  F0RMAT(2I  6) 

720  CO  NT  IN  JS 
U2LA  jT*l 
C 

C  SET  UP  A  ANO  3  POINTERS  FRO*  TABLE 
C 

PTA=1 

PT3=1 

740  CONTINUE 

A1=PINU.PTA.  INREF  I 
A2=>P1N(2.P“  A. I NREF) 

74 S  CONTINUE 

ai=PiN(i  .pts.incod) 
d  2*P  I  N  <  2  *  PT  d .  I  NC  OD  ) 

753  CONTINUE  *  *  .  — '  . . 

IF (G2«GT.PELMAX*l )  GO  TO  210 
C 

C  DETERMINE  APPLICABLE  CODE  RULE 
C 

IF  (Al-31  •  tiT  .3)00  TO  800 
IK  (Rl-Al .  GT.31G0  TO  950 
C 

C  /Ql-Al/  LESS  THAN  OR  EQUAL  TO  31  TEST  /B2-A2/ 

C 

IF  (A2-32. 3T  .3)G0  TO  3J0 
IF  {  62- A2.GT. 3)  GO  TO  95  0 
C 

C  231 -Al/  AND/32-A2/  LESS  THAN  OR  EQUAL  TO  3; 

C 

C  PROCESS  CONNECT  __ 

760  CONTINUE 

IF (ENOCNT .Lc.O )GO  TO  770 

ENOC  NT  =£  NUC  NT— 1 

CALL  COOJTL (50.CDELCT  > COOATA ) 

GO  TO  760  -  ... 

770  CONTINUE 

IN0£X=  (dl  -Al  *3  >*7F{  02- A2  )  4-4 

-  CALL-  CO09  TL<  I NOEX  .COELCT  » COOATA  1"  - - - - 

82LA3T  =62 
CONECT*.  TRUE. 

C 

C  ADVANCE  LINE  A  AN 0  LINE  0  POINTERS 

c  ... 

IF  (PT  A  •_  T  »P T  I  MAXI  INREF  )  I  PTA=PTA+1 
IFIPTB.LT.PTIMAXIINCOO) )  PT0=PTB+1 

'  GO  TO-  740  -•  --  -  - - - -  -  - 

C 

C  PROCESS  HEAD 
C  '  '  " 

800  CONTINUE 

L=d2-0  1  .  -  - .  -  . 

0=  SI  -02L  AST 
IF  (L.GT.4  0)  GO  TO  810 

--  "  CALL  COOBTL  <L  ♦50.  COELCT, COOATA  > - - - - - -  - 

GO  TO  650 
C 

C  LENGTH  GREATER  THAN  40 
C 

810  CONTINUE  ------  - 

1FIL.GT.71 ) GO  TO  820 
L=L-40 

-  -  CALL  C009TL  (91  . COELCT . CDDATA )  -  -  — . — - -  - 

CALL  MI28 (L  » CODUF. CDELCT  +1.5) 

C0ELCT=CD£LCT*5 
COOAT  A=COOAT A+-5 
GO  TO  840 

C  . .  -  -  -  . — 

C  LENGTH  GREATER  THAN  71 
C 

—  820  CONTINUE  - - - - - - — . 

IF(L  .GT.532  >G0  TO  830 
L=l-71 

CALL  C0U3TL (92, COELCT, COOATA)  ~  "  ' 

CALL  M  126 (L . CD0UF. COELCT  +  l .9) 

CDSLCT=CDELCT  +9  . .  •  - 

CD0ATA=C0DATA+9 

GO  TO  640  _  _ _  __ 

C  LENGTH  GREATER  THAN  582 

C  .  _  ........ 

630  CONTINUE 


P-8 


UNCLASSIFIED 


r 


a  ■  17 


•Af  Wgl»H M<p»WW!WBP» »or*r ^ ■  -  "' ;»'  ~w,  W  "■'*•»*  W-P-W-JT 


■^3 


k 

v~ 

I 

§ 

\ 

V- 


c 

c 

c 


c 

c 

c 


L«L-'j,J2 

CALL  CODS  TU  (9  3  .  CO:TL  CT  ,  CODATA  ) 

cSacri  co5te“iS"’,c,J‘:L,:T,,>1" 
«47  ZML'£‘'nT“n 

pk.?ic«i;Tiiur'CDSLCT“>!1 

C  J  D  -» T  A  *C  0  OA  T  A  f  3 
STFdITsJTP-A  ITM 
B‘jO  CONTINUE 

S2UA3T«3l,"',<J,i  •C^‘>CT,CDDATA) 

ENDCNT*0 

CLNECT«.FAl 3a. 

ADVANCE  LI  IE  J  SC I NTERS 

GO  ^TO  ,7^g*PTIMA*(1N)CQl3>  )  PI  ti=PT 8-f  t 


'-"'(V.L  .HJJII-  4  C.LJ 


950 


c 

c 

c 


PROCESS  END 

950  CONTINUE 

IF<CJNECT>>iO  TL  960 

960  CONTI N^L45T+2>97°*  960,960 
,,  ,  5NOCNT»ONOCNT*-1 
970  CONTINUE 

ADVANCE  LINE  A  PC INTERS 

ij-PIN  <7lp?I!;NR^rEF,,HT4=PTAM 

A2*PIN<2.PTA.INREF* 

GO  TO  730 
210  CONTI  ^^JS 

SWITCH  CODE  C  REFERENCE  LINES 

TE  VP*inr.£F 
IN^EFsjNCOO 
IN CO J=  TEMP 


C 

c 

c 

c 

c 

c 


c 

c 


c 

w 

c 


TRANSFER  COtJUF  TO  STFBUr 

CJEL««  (COcLCT  ♦•32-1  )/32 
DO  240  I«2»CDSLW 
jTFJuF ( I ) aCOfl JFl 1 ) 

240  CONTINUE  ' 

SAVE  LINE  LENGTHIDATA  BITS  PLUS  EOL) 

ST  AT  <  I  NLNCT  >  =  MAX0  (  CDDaT  A  .  1  )  ♦CQ:>E  (  1  .  9  3,  \  > 

CHECK  COOED  LINE  LENGTH 

^-<;ts,!:M?'4AX',(CDE'-CT-3C  ) 

Ir(FILL)  400.40C.250 

250J25NII.^r3°  SHm>.  FILI-  >T  70  CVPBAX 
CJiLCT*CD£LCT  FF  ILL 

ACCUMULATE  STATISTICS  AND  ERROR  CORRUPT 
400  CONTINUE 

IF(cNRMOO.EQ.NN)  GO  TO  390 
ERROR  CORRUPT 
350  CONTINUE 

t  ERRPNT)  -ERROFF-TCDeL 
J«/<?55°JT'ue»0»  GD  TO  360 
IF ( fcRROI T« sT. COSLCT-32 )  GO  TO  390 

ERROR  IN  RANGE  OF  COOED  LINCJ  CHANCE  APPROPRIATE 

BI  Ta  1 4  U(  3TF SUF «  ERR 0IT+-32.1  > 

UI T*BOO< SITFl  ,2) 

LALL  '1  12 J  (  0  IT  *STFBJF,2RRt)JTf32.1  ) 

P-9 


,1 


BIT 


UNCL ASSI F  IED 


V,,-' 


. .  ■•^■11  - 


'^yw-^-t-yy- nw,T'  ^  * 

W4fW> VW1'^  , 


*“  VJWWT’  -  n,i»f<-*rj  ’■ 


*  ’.'  iv*fi  v  U'^fWwr  ■* 


•Tjyin/iivw^nr*  ' 

rr  v.y  -M.*  ->^V? 


t 


I 


r 

r 


i 


i- 


*» 


4 

« 


Urn.L*S3)  MUI 


ERRC  NT  *ERRCNTM 


C 

C  iJCiSMElT  ERROR  LIST  PC  I  NT  tR 

r 

360  CC  X  r  I  i  U  i 

ERRPNT  =ERRPNT*1 

If  (  c.RRPNT.LE.C'Ri.  IM  )  jC  TO’  350 
C 

c  .  Nin  list  -xhaustcd 

c 

c  3s.’  -IT  =S.RR  3NT- 1 

MR  I  TCI  LJF  JL , 370)  ; RHP  XT .ERRORS! CRRPNT  ) 

3  70  FORMAT  i'JJS'WR  LIST  EXHAUSTED  AT*,MC,»TH  ERROR  J  •  / 
♦  •  LAST  ERROR  OCCURRED  AT •  ,  1 1 0  *  •  BITS*) 

SRRM0.1*NN 
C 

C  COMMUTE  STATISTICS 
C 

3 ‘JO  CONTINUE 

TC0EL  =  TC  )LL  ♦  CDFLCT-22 
TCOAT  A*TC0.\T  A*CDDA7A 

IF  (01  X-i )  W  )  I  TS( TERM , lo0  )  INLNCT  •  CDOATA 
160  FO  RM  AT  (  4  I  F  ) 

C 

IF  l.NJT.DlAG)  SC.  TO  460 
CO£LW=  ( CO  EL  CT  43  2-1  )/32 

*RITE(  LPFIL.4SC)  <COBJF<  1 ),I*i  .CDELW) 

ITCILPF IL  ,450)  ( STFrfUFI  I) .1  =  1 .CD EL  4) 

450  FORMAT (6212) 

460  CONTINUE 
RETURN 


C 

500  CONTINUE 
CALL  EXIT 
C 

S  N  0 

SUBROUTINE  CUDUTLI MODE.CDELCT .CDCATA) 

IMPLICIT  INTcGEK(A-Z) 

CO  M'MGN/HUer‘ /PEL  OUF  (  60 . 2  )  ,  CDUUF  C  2  40  >  .  OTOUF  (  60.  )  i 

*  STrSUF  (  240)  .  STATI3000). 

*  PIN (2, 064. 2 ), PUT< 2, 5C4. 2  > .PTlMAXi 2)  ,PTCMAX(2) 
C  0  MM  ON /H JFF/CODC ( 3,92.2) . CODERD ( 5  »  ^  3  ) 

COMMUN/SR4Y/£HHCRS(  250  3) 


C 


BEGIN  PROGRAM 


CALL  M  I2B( C00EP0I3 , MC JE ) # CDBUF .CDELCT M .COOERlM  1 .  VC OE > ) 
CJa.CT  =  CU'tE.CTFC3DERO<l  ,MCOE  ) 

CDDATA=CJD4TA*COOEfiO(J  ,MUDC> 

RE  TURN 
END 

SUBROUTINE  UNEUTLt INDEX, COLOR, STATUS.L  ) 

IMPLICIT  IN  TEGLR  <  4  -  Z  ) 

C*******  LABELED  COMMON  /G320IT/  ******* 

COMMON  /G32GIT/.MASK(32  ),C0MASK<  32),L  IRIT(32J  ,LZ0IT(  32) 
INTEGER  MASK,  COMASK  ,  LI  (3IT.LZBIT 


CUMMJN/3UFF/PEL,3UF<60,  2),  CDl)UF(240  )  ,0TDUF<  60.2)  . 

*  S  TFBUF (  240  ),  STATI  3000), 

*  PIN(2,864,2 ), POT (2. 864, 2 ) ,PTIMAX( 2 ) ,PTOMAX( 2 ) 
COMM JN /RUFF /C00E<  3,92.2)  .CCDERO ( 3. S3  ) 

COMMON 'S.RAY/ERRORSI  C500)  .  ... 

£♦*,*♦♦*  ***  /*♦*♦*♦*♦****  FILE  DEFINITIONS  ******************** 

r 

ccmmon/files/tc.rm.lpfil.pelfil, ptfil.erfil 


* 


Vt 

* 


t 

R 


c*********************  LABELLED  COMMON  VARIABLES  ****** ***♦**♦**♦*♦♦** * 

common/i v  ar/pelm  ax , vre  s , epha  ss , c  mpma  x , err mod ,li n  v  ax ,k 
COMMON  /°  V  AR/IN.NN3  ,  OTLNNO  »OT  t'LW  ,  INS  LP  ,  COEL°,  OTfi  LP  ,  COEL  ¥  , 

*  CDELCT  ,  INELCT.TCDAT  A.TCDEL.ERRFNT. ERRCFF.ERRL IM, 

*  ERRCNT, INLNCT. CON  SEC .LNNOBF , 

*  1 NLUU,  INREF.CT  CUD, OTHEF.STFBIT , 

*  PTAD.PTUO 

COMMON /I CHAR/OD, I  I , MM . TT , NN, Y Y 

COMMON/- OGI C/ SEARCH ,DI AG  »3YNC  , LSS . W R I T E . ZERO . L E FT  .  C  HCOL ,CNC , 
•CONECT 

LOGICAL  S LARCH, DI AG. SYNC. WRITE, LEFT ,CFC3L.CNE,CCNECT 


C 

£****************************  BEGIN  PROGRAM  *************************** 


* ooo  'non  non  non  non  non  n  ononnn  nno  non  ono  non 


P  1CL) 


dzGIN  DECODE  LOOP ?  RETR  I  EVE  NeXT  COD'-  WORD  LENGTH  (L) 
000  CONTINUE 

00  2  L3N0iT«C00S(l .INDEX, COLCR > 

C*LL  J£TLU(LINbIT,MtDC.LiiITS.L) 

IP  (  D I  A  G )  WRITE(TSRM,1003)  LENQIT .MOOE.LBITS.L 
)03  F0RMAT(2I 6.Z3.I6) 

GJ  TJ  11040,1200,1205.  1190),  300- 
STOP  104  0 
040  CONTINUE 

IP  (LUlTS . E 1  .CODE  t  3  *  INDEX,  COLOR  )  )  GO  TO  1100 

NO  4  AT  CH ?  ADVANCE  CODE  WORD  INDEX  VIA  DECODE  THREAD 

INDEX*  C3JE( 2» INDEX, COLOR) 

IF  (INDEX. GE.92  )  GO  TO  1190 

IF (CDDE( 1 .1 NDEX, COLOR) .EQ.LENBIT)  GC  TC  1040 
CODE  WORD  LONGER!  FROM  THE  TOP 
GO  TO  id  0  2 


4ATCF  FOUND 

100  CONTINUE 

CDCLP^CDELP+L 

NOT  AN  EOL 


TEST  FOR  MAKE  UP  OR  TERMINATING  CODE 
RUNLEN=INOE X— 1 

IF( INDEX. GE. 65 )  RUNLEN* { INDEX-64)*64 
IF (AUNLE  4. E 0.0. AND. OTELP.GT.l)  GC  TC  1190 
IF (RJNLSN  .5  J.O )  GO  TO  1160 
IF (COLOR. SQ.l )  GO  TO  1  1S5 

IF  (R-JNLEN  .LT.O  )  STOP  1100  -  *  "  -  . . 

ADD  BLACK  RUN  TO  OUTPUT  BUFFER 
DO  1150  I =1 .RUNLEN 

CALL  M  120 ( COLOR- 1»DTBJF(  1 , OTCOD ) .CTELP , 1 ) 

OTELP^GT  ELP+l 

IF  (  0  TEL3-  1 »  C?T,  PELMAX)  GO  TO  1180 

1150  CONT INUE  •  •  —  •  ’  . 

GO  TO  1160 

ADO  WHITS  RUN  TO  OUTPUT  BUFFER  (BY  DEFAULT) 

1155  CONTINUE 

OTELP^OTELP+RUNLSN 
IF(OTcLP-l.GT.PSLMAX)  GO  TC  1180 

OUTPUT  LINE  LESS  TH»N  OR  EQUAL  TO  MAX  SPECIFIED 

1160  CONTINUE 

IF( INDEX.LT. 65)  GO  TO  1170 

INC£X=3 

Gu  TJ  1000 

RUN  ADDED  TO  OUTPUT  LINE?  LENGTH  LESS  THAN  OR  EQUAL  TO  PSLMAX  (1) 
1170  CONTINUE 

ST ATUS=1  “  "" 

RETURN 

RUN  AODEO  UNTIL  PELMAX ‘EXCEEDED?  LINE  TC0‘  LCNG  (2) 

1180  CONTINUE  . .  -  - - - - 

IF(DIAG)  WRITE(TERM»1135)  ( OTBUF ( I , OTCCD ) , 1=1 , 60) 

1185  FORMAT  (6Z10) 

STATUSES 

RETURN 

ND  MATCH  FOUND  IN  CODE  TABLE  (3) 

1190  "CONTINUE . .  —  *  - - - 

IF (D I  AG) WRITE! TERM, 119  5)  INLNCT, I NDE X, RUNLEN ,LB IT S . PTAO , PTBO 
1195  FORMATCONc*  .613) 

STATU 3=3 


P-11 


UNCLASSIFIED 


icj 


RETURN 

C 

C  £0L  DETECTED  (4) 

C 

1200  CONTINUE 
ST  AT  U  3=4 
RETURN 
C 

C  U  ZEROES  (FIRST  PART  Or  EOL)  DETECTED  (5) 

C 

120  5  CONTINUE 
STATUS-5 
RETJRN 
END 

SUBROUTINE  TW03TL(  INDEX.  COLOR,  STATUS,  L) . 

IMPLICIT  INTEGER(A-Z) 

I*******  LABELED  COMMON  /G323IT/  ******* 

/» 

COMMON  /G32BIT/MA5K(32  )  .COMASK ( 3 2 ) . L I  3  IT ( 2 2 ) ,LZeiT ( 32 ) 

INTEGER  M  ASK*  COMA SK  ,L  I  3 1 T »LZO I T 
C 

CO  MM ON /3 OFF /P  E_  9UF (60*2) ,C05UF(  240)  ,0TBUF(60,2)  * 

*  STFBUF( 240  )  •  STAT(  3000 ) i 

*  PIN (2. 864. 2) . POT (  2,3  64,2 ) ,PTIMAX<2 ) *  PTQMAX ( 2 ) 

C  OMM ON /H  JFF/ CO  DE{  3, 92.  2) .CODERD (3.33) 

C3MMUN/E  R  AY /ERRORS  (2S0  0) 

C ********************** *  FILE  DEFINITIONS  ******************** 

C 

COMMON/FILES/TERM.LPFIL.FELFIL.CTFIL.EPFIL 

C 

C*********************  LABELLED  COMMON  VARIABLES  ********************** 
C 

COMMON/ IV  AR /PEL MAX . VRHS  »  EPHaS  E .CMPMAX.ERRMCD.LI NMAX ,K 
COMMON /PVAR/I NL  NNU • OTLNNO . OT  ELW , INELP • CDELP. OT  ELP.CDELW . 

*  CDELCT. INELCT .TCDATA .TCDEL , ERRPNT .ERRCFF, ERRL IM . 

*  -  E.RRCNT  .  INLNCT  .  CONSEC.LNNOBF* 

*  INC CD . 1 NRSF . CTCOD.OTRE^ . STFBIT . 

*  PTAG.PTBO 

.  COMMON/ICHAR/DD.  I  I  *  .MM,  TT  »NN»  YY  . . .  . . . 

CO MMON/_OGIC/SEARCH,D IAG.SYNC.LSS.WRI TE » ZERO .LEFT . C HCOL , ONE  * 

*  CCNECT 

LOGICAL  SEARCH, D I AG , SYNC , WRI TE , LEFT , CHCCL . ONE . C C NECT 
C 

C  BEGIN  DECODE  LOOP;  RETRIEVE  NEXT  -  CODE  WCRD -LENGTH  (L) 

C 

1000  CCNTINUE 

100?  LENBIT=CODERO(  1  .INDEX) - - - 

CALL  GETLB(LENBIT .MCDE.LBITS.L  ) 

IF(DIAG)  WR I TE ( TERM ,1003)  LENB IT .MODE , L9ITS , L 
1003  FORM  AT  (21  6,  Z1  2,  16) 

GOTO  (1040,1200,1205,1190),  MODE 

. STOP  1  040—  .  _ _ _ _ _  _ _ _ _  _ 

1040  CONTINUE 

IF  (  LSI  TS.  iIQ. CODER D(  3,1  NDEX  )  )  GO  TO  1100 

C  NO  MATCH;  ADVANCE  CODE  WORD  INDEX  VIA  DECODE  THREAD 
C 

IN  DEX  =  CODER  D(  2,  INDEX)  ~  - - - -  -  " 

IF  (  INDEX.  GE.94  )  GO  TO  1190 
IF(C002RDU,  INDEX)  .EQ.LENBIT)  GO  TO. 1040 
C 

C  CODE  WORD  longer;  from  the  top 

GJ  TO  1002 
C 

C  '  MATCH'  FOUND 
C 

•  1100  CONTINUE  ..  - 

CDcL^CDELP+L 
C 

C-  —  NOT  AN  EOL -  - - - 

C 

C. 

C  TEST  FOR  CONNECT,” END,  HEAD  CODE  . 

C 

IF  (  JNQEX-50  )  100,  200,300  - - 

C 

C  CONNECT  CODE  EXTRACTED  FROM  CODE  LINE _ 

100  CONTINUE 

C  .  ...  .  ...  . . 

C  TEST  LINE  A  POINTER 


P-12 


UNCLASSIFIED 


no  n  n  non  ■  ;  non  non  nnn  non  non  non  n  o  non 


ojns-umopa  ncu 


IF  (PT  AO.  ST  .PTQMAX{  OTREF)  )  GC  TC  1150 
•31 

POT  (  l,PTdO.OTCGD)=POT(  1 ,  PTAG  .OTREF  )  +  (  INDEX-1  1/7-3 
CHECK  FDR  OVERLAP  WITH  THE  PREVIOUS  RUN 

IF(P0T(l.PTaC.QTC3D).LE.CTELP.AN0.CTSLF.GT.l)  GC  TO  1190 

•32 

PUT(2*PTBU#  0TC0D 1 =P0T ( 2  «  PTAO . OTREF ) ♦MOD { ( INDEX- 11 .71-3 

DTELPaPOT  <1 .PTBO.CTCGD ) 

IF (0  TEL3. LT .1 )  GO  TO  1190 

IF(0T2LP.GT  .P5LMAX)GG  TO  1180 

RUNLEN^POT  (  2.  PT  (10  «  OT  CUD  1  —POT  (1  .PTBO.OTCOO) 

ADVANCE  LINE  A  AND  LINE.  Q  POINTERS 

PTAGsPTAJ+1 
PT8J=PTdQ+l 
GO  TO  114  5 

END  CODE  DETECTED-  . -  -  -  -- 

200  CONTINUE 

TEST  LINE  A  POINTER 

IF {PT AO. GT . PTOMAX ( OTREF 1 1  GC  TO  1190 

ADVANCE  LINE  A  POINTER  -  ...  - 

PTAO*PTAQ  *1 
GO  T 3  1160 

HEAD  CODE  DETECTED 

300  CONTINUE 


FIRST  CALCULATE  BLACK  RUNLENGTH 

IF< INDEX. GT. 90)  GO  TO  310 
RUNLENs INDEX— 50 
GO  TJ  350 
310  CONTINUE 

IF  (INDEX. GT  .91  )GO  TO  320 

.  CALL  GETLOl 5,  MODE  , L3I  T S . L h  . 

IF  (MQDE.Nc.l  1ST0P  310 
RUNLEN-Ld I T  S+4  0 
GO  TJ  340 
320  CONTINUE 

IF ( INDEX. GT.921G0  TC  330 
CALL  G£TLB(9,M0DE.LBITS.L> 

IF (MODE. NE. 1 ) STOP  320 

■"  R'JNLEN=Ld  ITS ♦71  . .  —  — 

GO  TO  340 
330  CONTINUE 

CALL  GcTLBUl  .  MODE.  L8  I TS  .  L  1 
IF(.M00£«NE.l)G0  TO  1190 
RU  NLEN=Ld IT  S  +  582 
340  CONTINUE 

CDEL°=  CDELP  H. 

IF (I46(L3ITS«32-3*4 1 .NE.O ) GO  TC  350 
CALL  GETL9(  1..M0DE.LBITS.L) 

IFIM3DE.NE.1 1ST0P  340 
CDSLP=CDELP+L 
IF(L3ITS.NE.l)G0  TC  1190 

ADD  WHITE  RUN  PRECEDING  HcAO  LENGTH 

350  CONTINUE  — '  -  ... 

IN.'!  X=  3 
CGl.^"<=  1 

CAL:.  UN-JTL  (  I  N  DEX  .  C  0L0  R  .  S  T  AT  E  ,  L  ) 

r",  (j»0,  1180,  1190,1200,1205)  .STATE 

j!>  J  U  I  i  NU: 

■31 

PO  T  ( 1  ,PTt>J,CTCCD)=OTELP 

*  3  :  .... 

^ori  !  >f  30  <  CT  COO  )  =0  T  EL  P  fAUNLEN 


i  VS  OV.  !'  3i.)  T  ON  L  I  ME  A 


UNCLASSI F I E  D 


UNl.UAOSit'ifciJ 


C 

37 0  CONTINUE 

IF  ( ^»T  AO.GT.PTQMAXtCTREF)  )  GO  TO  400 

IF (POT  U  • PT  AO  »  QT  REF ) «  GT  »POT (2  »  PT  BO,  OTCGD )-3 ) GO  TC  400 
^TAOaPTAJ+l 
33  TO  370 
403  CONTINUE 
C 

C  AO  VANCE  LINE  3  POINTER 
C 

PT30=PTBJ*1 

C 

C  A 00  SLACK  RUN  TO  OUTPUT  BUFFER 
C 

1145  CONTINUE  -  .  . .  —  ’ 

PTCMAX  (OTCOD)=PTBO-t  * 

IF ( RUNLEN ) 1 190, 11 90 #11 47 
114  7  CONTINUE 

00  1150  1=1  .RUNLcN 

CALL  MI23( 1 ,0T5JF( 1 ,CTCOD ) .CTELP ,1 ) 

QTELP=ar£Lpn 

IF (DTEL^-l.GT.PELMAX)  GC  TO  1130 

1150  CONTINUE  — . .  • 

C 

C  RJN  ADDED  TO  OUTPUT  -INEJ  LENGTH  LESS  THAN  CR  E0U4L  TO  PcLMAX  (1) 
C 

1160  CONTINUE 
STATUS=1 
RETURN 
C 

C  -  RUN  ADDED  UNTIL  PELMAX  EXCEEDED;  LINE  TOO 'LONG  (2)  * 

C 

1130  CONTINUE 

IF(DIAG)  WRITE(TERM,1185)  { QTBUF ( I »  OTCOD 1,1  =  1,60) 

1185  FORMAT (6210) 

ST  AT U3=2  . —  —  . .  . 

RETURN 

C 

C  -“NO  MATCH  FOUND  IN  CODE  TA8L£-'f3) - - - - - 

C 

1190  CONTINUE 

IF (DIAG) XRITEITERM, 1195)  INLNCT ,  INDEX, RUNLEN ,L S  ITS ? DT AO , PTBO 
1195  FORMAT! 'TOO*, 61  3) 

3T  AT  JS=3  -  -  -  - . .  . . —  -  . - 

RE  TURN 
C 

C  EOL  DETECTED  <4)~  - ■  . . -  ~ 

C 

1200  CONTINUE 

ST ATUS=4  . ~  '  “  ~ . .  *  . . . 

RETURN 

C  11  ZEROES  (FIRST  PART~QF  EOL )  DETECTED"  ("5 ) 

C 

■  1205  CONTINUE  - - - 

ST  AT US =5 
RETURN 

‘  £  N  0 .  ~ .  .  . 


..  -  BLOCK  DATA  -  - - - - - 

C 

IMPLICIT  INTEGER ( A—Z ) 

C***********************  FIL-E-  DEFINITIONS’ ********************* 

C 

COMMON/? I  LE  S/TERM  ,  LPFI  L  .PELF  JL,  OTFI L  , S_RF_I  L  . _  . . 

COMMQN/SUFF/PELBUF! 60,2) »CDBUF(240)»OTEUF(60»2) » 

. . _*_ . STFBUF(  240  ).,..STAT(  3000)., . . .  .  _  . 

*  PIN(2,864,2),P0T(2,864,2),PTIMAX(2) ,PT0MAX(2) 

COMM ON/HUFF /CODE( 3 , 92.2) .CODERD (3,93 ) 

-  - COMMCN/SRAY /ERRORS  (2500) - - - - — - . 

C*********************  LABELLED  COMMON  VARIABLES  ********************** 
C  _ 

COMMON /IVAR/P ELMAX  ,  VRES  ,  EPHASE  .  CMPM  AX'i'ERRMO'DYTl NWAX'.K 
COMMON /3  V  AR /INLNNO  »  OTLNNO  »OTEL* , I NELP ,CDELP, OTELP , CDELW , 


. —Ml . .  CDELCT  ,  INELCT  ,TCDATA  ,-T COEL.ERRPNT*  ERKCFF.ERRLIM  , 

*  ERRCNT, INLNCT, CONSEC .LNNOBF , 

*  INCOD, INREF, CTCCD.OTREF , STFB IT, 

- *- - - PTA-O.PTBO  - -  -  - 


pi!Til.iiWi>,iiit.i,  iwww ,t'"  ‘  nggw;  awwiMn^w 


o.«.un  aotr  uu 

LOGICAL  SEARCH  *01  AG  ,  ST  NC  ,  WK 1  T  C  .  L EF  T  •  CHCCL  »  ONE  ,  C  CNEC T 


DAT* 
DATA 
DATA 
DA  TA 
CAT  A 
DATA 
J  AT  A 
DAT  A 
DAT  A 
DATA 
DATA 
DATA 
DATA 
DATA 
OAT  A 
DATA 
OAT  A 
D  ATa 
DATA 
DAT* 

3  \T  A 
DATA 
DATA 
OAT  A 
DATA 
DATA 
DATA 
DATA 
D  AT  A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT  A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OAT  A 
DATA 
O  AT  A 
DATA 
OAT  A 
OAT  A 
DATA 
DATA 
DATA 
OATA 
DATA 
OATA 
OATA 
DATA 
OATA 
DATA 
OATA 
OATA 
DATA 
OATA 
-■'DATA 
OATA 
OATA 
'  OATA 


TER  1 »LPF 1 l  .PELF  IL.CTFIl.STF  IL/ 5 . 6  ,  l  .  2 , 3/ 


OJ,  I  I. MM, TT.NN. YY / »D  •  . • I  • «  • M*  , • T  •  ,  •  N»  ,  •  V*  / 

3  El  A  AX  »  V  A  fc  3  »  EPHAS  3.  C '(PM  AX  «  ERR  MOD. L  INMAX/I  7 28 . 2 . 0 . *6 ♦ • T • » 300 0/ 
</>/ 

D lAG/. FALSE./ 


CDDEt  1  . 
CD  D it  1. 
CODE (  1  . 
CD  D  £(  1. 
CCO  £ (  1  . 
CDDEt  1  . 
COOEt  1  . 
CODE (  l  , 
CD  DEt  1 . 
CODE  (  1  . 
COD£<  1  . 
CO  Del  l  . 
CDDEt  1  . 
CDDEt  l. 
CDDEt  t  . 
CDDEt  1. 
CDDEt  1  . 
CDDEt  l  , 
CD  D  E  l  1  . 
CD  J£<  1  . 
CJDit  1. 
CODEt 1  . 
CDDEt  1. 
CDDEt  1  . 
CDDEt  1  . 
CODEt  1 . 
CODE  11  . 
CDDEt  1  , 
CJOct  1  . 
CDDEt  1  . 
CDDEt 1. 
CDDEt  1  . 
CDDEt  1. 
CODEt  l  . 
CODE  1 1  . 
CDDEt 1 . 
CDDEt  1. 
CDDEt  1  . 
CDDEt  l  . 
CODEt 1 . 
CODEt l . 
CDDEt  1  . 
CDDEt 1 . 
CDDEt 1. 
CDDEt  1  . 
CDDEt  1  , 
CDDEt  1  . 
CODEt  1  , 
CDDEt  1. 
CDDEt  1  . 
CDDEt 1 . 
CDDEt  1. 
CJOEU  . 
CDDEt  1  . 
CODE ( 1 . 
CD  DE  1 1  , 
CDOct  1, 
CDDEt  1. 
CDDEt 1. 
CODEt 1 . 
CDDEt  1. 
CDDEt  1  , 
CDDEt 1  . 
CCDEll  . 
CDDEt  1  . 
CDDEt  1  . 
CDDEt 1 . 
CDDEt  1 . 
CODEt  1  . 
CDDEt 1 . 
CDDEt 1 . 
COOEt  1  . 
CDOct  1  , 
COOEt  1  . 
CDOEt 1 , 


1  ) 
.  1  I 


C  3DE12  , 
CODE  <  2, 

3.1  )  .COOct  _ . 

4.1  ) « C  DOE ( 2  , 

5.1  )  .CJOct  2, 

5.1  )  .CODE  t  ^  . 
7,  1  )  ,  C_D£t  2. 

8.1  )  .CDDEt  2  « 
9,1 ) .CODE l 2, 

ID ,1  ) .CODEt  2. 

11.1)  .COOEt  2  , 

1  2,  1  ) .CODEt 2. 

13.1  ) .COOEt 2, 

14.1)  .CODEt  2, 

15.1)  .CODE (2, 

15.1  ) « C DOCt  2. 

17.1)  , CODE  t  2  » 

13.1  ) «C ODc  t  2 , 

19.1)  , CDOEt  2 , 

20.1  ) , C  DOE ( 2  , 

21 .1  ) .CODE  t 2, 

22.1 )  , CODE ( 2 , 

23.1  ) .CDDEt  C. 

24.1  ) .CODEt  2, 

25.1  )  .CODE  t  2, 

26.1  ) «  CODE  t  2 , 

27.1 )  .CODE ( 2 , 

28.1  ) .COOEt  2, 

29.1 )  ,C00E(2, 

30.1  )  .CDOEt  2. 

31.1)  .CDDEt  2, 

32.1  )  .CODE  t2, 

33. 1  ) .CODEt  2, 

34.1 )  « C  ODE  t  2 , 

35.1 )  .CODE l 2. 

36.1  >  , CODE ( 2  « 

37. 1  ) .CODEt  2, 

38.1  ) .COOEt  2. 

39.1  )  .C  DDE  t 2, 

40.1 ) , CJOEt 2, 

41.1)  .CODEt 2 , 

42. 1 )  .COCEt  2, 

43.1 )  , C  JOE ( 2 , 

44.1  )  , CDDEt  2, 

45.1  )  , CODE  t  2 , 

46.1  )  .CODEt  2. 

47.1  )  , CODEt  2, 

48.1  ) , C ODE ( 2  , 

49.1)  , C OOE t  2  , 

50.1  ) , CODE ( 2 , 

51 .1  )  ,  C  JOE  (  2  , 
52,  1  ), COOEt  2, 

53.1  ) .CODEt  2, 

54.1  )  .COOEt  2. 

55.1 )  .CODEt 2, 

56.1)  .CODEt  2, 

57.1  ) .CODEt  2. 

58.1)  »C  ODE  t  2  . 
59,  1 ),  CODEt  2, 
60.1 > ,COOct2  , 

61.1 )  , CODEt  2, 

62.1  ) .CODEt  2, 

63.1 )  .COOEt 2, 

64.1  ) , CODE  t  2, 

65.1 )  .CODE (2, 

66.1 )  .COOEt  2, 

67.1  ) ,C00c  <2 , 

68.1 )  , CODEt  2, 

69.1  )  ,CODEt2, 

70.1 )  , C  ODE  t  2 , 

71.1) , CODEt  2, 

72.1 )  , COOEt?, 

73.1)  .CODEt  2, 

74.1  ) .COOEt  2. 

75. 1 )  .CODE  (  2. 


1  .  1  ). CC0Et3. 

2.1) , CODE ( 3, 

3. 1  ).C0C  =  <3, 

4.1)  .CODE  <3, 

5.1) . CODE ( 3  , 

6.1  ) , C  COE  t  3  , 

7.1  ) , COOEt  3, 

8 .1 ) .COOE13, 

9.1)  .CODE ( 3, 

1 J, 1 ), CODE <3, 

i : , i ) .coos  to , 

12. 1 )  .CODEt  3. 

12.1 )  , CODE ( 2 • 

14. 1 ) , CODEt  3, 

15.1 )  , C  ODE  t  3 , 

16.1 )  .CODE  <  2 , 

17. 1 )  , CODE ( 2 , 

13.1)  .CODE  t  2 , 

1 9. 1  )  .CCD2  t  2. 

20.1 )  .CCDE<3, 

21.1)  .CODE (3. 

22.1  ) , CODE ( 3 , 
£3.1  )  ,  C  COE ( 3  « 

24.1) , CODEt  3. 

25.1  ) , C  COE  t  3 , 
26,  1  > .CODEt  3, 

27.1  )  , CODE  t  3, 

28.1)  , CODEt  3. 
£9,1  )  , CODE ( 3 , 

30.1 )  , CCDE  <  3 , 

31. 1  ). CODEt?. 

32.1 )  , CCDE ( 3 . 
33,1 > . CODE ( 3 , 

34.1 )  ,CCCEt3. 
35, 1 >, CODEt  3, 
3o  .  1  )  ,CCCE  t  3, 

27.1 )  .CCDE ( 3 , 

38.1  )  . CODE  13, 

39.1  )  .CODE  t  3 , 

40.1) . CDDEt  3 , 
41  ,1  )  , CODE  t  3 , 

42.1)  .CODEt  3. 
43,  1  ).  CODE  (  3  • 

44.1 )  , C  ODE ( 3 , 

45.1) , CODEt  3. 

46.1)  .CODE ( 3, 

47.1)  .CDOEt  3, 

48.1  )  .COOEt  3, 

49.1 )  »CCDE ( 3 , 

50.1  ), CODEt  3, 

51.1)  .  CCDE  t  3 , 

52.1  )  , CODEt  3, 

53.1 )  ,  CCDS l 3 , 

54. 1 )  , CODE  t  3 , 

55.1  )  .CODEt  3, 

56.1 )  .CODE  <  3 . 

57. 1  )  .CODEt  3, 

58.1 )  »CCD£  t  3  » 
59, 1 > .CCOEt  3, 

60.1 )  .CODE  t  3 , 

61.1)  .CODE  t  3  , 

62.1  ) , COCEt  3, 
63:1  > ,CCD£t 3  , 

64.1 ) , CODEt  3. 

65.1  ) ,C0DE<3, 

66.1)  .COOEt  3, 

67.1 )  ,CODEt3, 

68.1  )  » C  ODE  t  3  , 
69.  1 ) .CODE  13, 
70,1 > ,CC0Et3» 

71 . 1  ) .CODEt  3, 

72.1  ) , CCDE  t  3 , ' 

73. 1 )  ,C  CDE ( 3  , 

74.1 ) , CODEt?. 

75.1  ) . CODEt?  , 


P-15 


)  .1 )/ 

a. 

70 , Z  00  25/ 

2.1)/ 

e » 

90, 20007/ 

3.1)/ 

4, 

4,  Z  000  7/ 

4,1)/ 

4  , 

5,20008/ 

5,1)/ 

4. 

6.20000/ 

6.1  )/ 

4, 

7 ■ 2000  C/ 

7,1  )/ 

4, 

8.2000E/ 

8,1)/ 

4. 

9.2000F/ 

9.1  )  / 

5, 

1  0.20013/ 

10.1)/ 

5. 

1 l ,20014/ 

11.1)/ 

5. 

12,2000  7/ 

12.1)/ 

*» 

65, Z 000b/ 

12.1 >/ 

6. 

14.Z0003/ 

14,1  )/ 

b  . 

15,20003/ 

15.1)/ 

f, 

16. Z0034/ 

lb.  1  )  / 

t . 

l 7,20035/ 

17.1)/ 

6. 

1 8.2002A/ 

18.1)/ 

6  , 

19. 20028/ 

19.1)/ 

7, 

20.20027/ 

20.1)/ 

7. 

21 . ZOOOC/ 

21.1)/ 

7. 

22 , Z  0008/ 

22.1)/ 

7, 

23 , Z  00 1 7/ 

23,1  )/ 

7, 

24,20003/ 

24,1  )/ 

7, 

25,20004/ 

2  3.1  )  / 

7, 

26 , Z 0028/ 

26.1  )  / 

7. 

27.2002B/ 

27,1)/ 

7, 

28,20013/ 

28.1  )  / 

7, 

29, Z0Q24/ 

29.1)/ 

7, 

68,Z001B/ 

30,1  )/ 

8. 

31,20002/ 

31.1)/ 

8, 

32  , Z0003/ 

32,1  )/ 

8. 

33 , 2  001  A/ 

33.1)/ 

8. 

34  ,  Z 001 13/ 

34,1  )/ 

6. 

35, Z001 £/ 

25.!  )/ 

6. 

35.20012/ 

36,1)/ 

8. 

37.Z0014/ 

37,1 )  / 

e. 

38,20015/ 

33,1)/ 

e. 

39, Z  001 6/ 

39,1  )/ 

a. 

40,20017/ 

40.1 )/ 

8  . 

41  .20028/ 

41,1)/ 

8  , 

42,20029/ 

42,1)/ 

8. 

43.Z002A/ 

43,  1  )/ 

P, 

44, Z  002B/ 

44,1  )/ 

8  . 

45.Z002C/ 

45.1)/ 

8. 

46,20020/ 

46,1  )/ 

8. 

47,20004/ 

47,1 > / 

6  , 

4  8 , Z  000  5/ 

48,1)/ 

e. 

49, Z000A/ 

49,1)/ 

8. 

50, Z000B/ 

50,1)/ 

e. 

51  ,  Z  0052/ 

51  ,1  )/ 

8. 

52, Z3053/ 

52,1  )/ 

6  , 

53,20054/ 

53.1)/ 

e. 

54 , Z  0055/ 

54,1 )  / 

e , 

55,23024/ 

55,1)/ 

8. 

56,20025/ 

56,1  )/ 

8, 

57, Z005  8/ 

57,1)/ 

8. 

58.20059/ 

53,1  )/ 

8  , 

59 , Z005 A/ 

55.1)/ 

8. 

60 , Z005B/ 

60. 1 >/ 

e. 

61 , Z004 A/ 

61,1)/ 

e. 

62  .Z004  13/ 

62,1)/ 

e. 

63.Z0032/ 

63,1 )/ 

8 

64 , 20033/ 

64.1)/ 

e. 

69, Z0034/ 

05,1)/ 

5  » 

66,  Z001 B/ 

66,1)/ 

5. 

6  7, Z  001 2/ 

67,1)/ 

6, 

2,2  331  7/ 

68,1)/ 

7. 

30,20037/ 

69,1)/ 

8, 

1  , Z  0026/ 

70,1)/ 

8. 

71  ,  Z  0037/ 

71  ,  1  )  / 

8. 

72,20064/ 

72,1)/ 

8. 

73, Z  0065/ 

’3,1)/ 

8, 

74  >  Z  006  8/ 

74,1)/ 

8. 

75.Z00&7/ 

75,1  )/ 

9.  76 , ZOOCC/ 

UNCLASSIFIED 

i**~i  1 


UNClASS ified 


data 

data 

DAT  A 
0  AT  A 
0  AT  A 
0  AT  A 
DATA 
D  AT  A 
DAT  A 
DATA 
OAT* 
D  ATA 
D  AT  A 
DATA 
DAT  A 
D  ATA 
DATA 
O  ATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OAT  A 
0  ATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT  A 
DATA 
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